Ayuda con error "Variable required"

[ecfisa]

Hola de nuevo.

La sugerencia del mensaje anterior soluciona el mensaje de error. Pero me quedé pensando que si tu intención es guardar la cadena textual al fin del archivo, ese código no te va a funcionar.

Hacelo de este modo:

Código Delphi [-]
var
  str : string;
  i   : Integer;
begin
  str := ExtractFilePath( Application.ExeName ) + 'programa.exe';
  with TFileStream.Create(str, fmOpenReadWrite) do
  try
    str := '{test}' + Edit1.Text + '{test}';
    Seek(0, soFromEnd);
    for i:= 1 to Length(str) do
      Write(str[i], 1);
  finally
    Free;
  end;
end;

O también podrías hacer:

Código Delphi [-]
var
  str : string;
  vec : array[0..1024] of char;
begin
  str := ExtractFilePath( Application.ExeName ) + 'programa.exe';
  with TFileStream.Create(str, fmOpenReadWrite) do
  try
    str := '{test}' + Edit1.Text + '{test}';
    Seek(0, soFromEnd);
    StrPCopy(vec, str);
    WriteBuffer(vec, Length(str));
  finally
    Free;
  end;
end;

Saludos.

[JuanOrtega]

Antes que nada , gracias por la ayuda , pero me han surgido dos grandes problemas , el primero es que cada vez que uso un edit en la variable no figura nada en el editor winhex , te lo digo porque cada vez que compilo abro el ejecutable con winhex y controlo , eso si , cuando uso texto solo sin nigun edit se muestra mas que bien en winhex , el otro problema es que no entiendo porque el codigo en el que me ayudaste la otra vez tiene problemas para mostrarme bien las impresiones que me ayudaste hacer en este post , hay veces que se muestran (rara vez) pero en las demas veces no eh tenido suerte.

Te dejo la imagen que saque del winhex porque el siguiente codigo no me lo muestra completo.

Código Delphi [-]
var
  Buffer: array [0 .. 1023] of Char;
  str: string;
begin
  Memo1.Clear;
  str := ExtractFilePath(Application.ExeName) + 'test.exe';
  with TFileStream.Create(str, fmOpenRead) do
  try
    Memo1.Lines.BeginUpdate;
    SetLength(str, 1024);
    while Position < Size do
    begin
      Read(Buffer, 1024);
      StrCopy(PChar(str), Buffer);
      Memo1.Lines.Add(str);
    end;
  finally
    Memo1.Lines.EndUpdate;
    Free;
  end;
end;

[ecfisa]

Hola Lepuke.

el primero es que cada vez que uso un edit en la variable no figura nada en el editor winhex , te lo digo porque cada vez que compilo abro el ejecutable con winhex y controlo , eso si , cuando uso texto solo sin nigun edit se muestra mas que bien en winhex

La respuesta es simple: Una constante literal será visible con un editor hexadecimal sin problemas. Pero cláramente ningún editor mostrará el valor de una "variable", ya que por su esencia, no hay manera de que pueda conocer su valor.
Recorda que una variable toma un valor luego de que uno le sea asignado durante la ejecución de la aplicación.

el otro problema es que no entiendo porque el codigo en el que me ayudaste la otra vez tiene problemas para mostrarme bien las impresiones que me ayudaste hacer en este post , hay veces que se muestran (rara vez) pero en las demas veces no eh tenido suerte.

No entiendo a que te referis con impresiones y tampoco me queda claro que es lo que no se muestra bién.

Saludos.

[JuanOrtega]

con impresiones me refiero a que yo estoy intentando agregar un valor a una aplicacion exe que es lo que estoy haciendo en este post , para despues con la otra aplicacion exe mostrar el valor que le deje marcado al exe (para sacar eso se abre a si mismo) , los dos programas son en delphi , por eso necesito mostrar todo el contenido de la segunda aplicacion que marque con la primera.
se me esta complicando mucho porque no entiendo un pepino de delphi por eso te muestro la imagen del winhex que es lo que estoy intentando sacar del exe lo que esta entre {test}

[ecfisa]

Hola Lepuke.

con impresiones me refiero a que yo estoy intentando agregar un valor a una aplicacion exe que es lo que estoy haciendo en este post , para despues con la otra aplicacion exe mostrar el valor que le deje marcado al exe (para sacar eso se abre a si mismo)

Revisa en este enlace: Dejar una marca en los archivos

Pero como un humilde consejo y sin ningún ánimo de ofender, si como vos comentas "no entendes un pepino de delphi", lo que estas encarando es un poco elevado para incorporarlo dentro de los primeros proyectos.

Saludos.

[JuanOrtega]

ok , gracias por el consejo , que desgracia estoy tan cerca solo me falta entender porque no me muestra todo el codigo binario.

[ecfisa]

Hola Lepuke.

Lo que podrías hacer es detallar bién que salida esperas, cuál te muestra (cuando lo hace mál) y el código involucrado (el que empleas para mostrarlo).
De ese modo seguramente podremos darte una ayuda más especifica y provechosa.

Saludos