EXE in Memo

[Äfan]

Anschauen und mich freuen was die Technik heutzutage alles kann !

[Christian Seehase]

Moin Äfan,

weisst Du jetzt nicht, wie Du eine Datei in einen TFileStream einliest, wie Du die Werte umwandeln sollst, oder wie Du ein Memo aus dem Buffer füllst?

[Äfan]

Nein weiß ich nicht

[Christian Seehase]

Moin Äfan,

dann ein paar Anhaltspunkte:

Datei in TFileStream einlesen:

Delphi-Quellcode:

var
  fs   : TFileStream;
  sBuf : string;

begin
  fs := TFileStream.Create(...,fmOpenRead);
  try
    sBuf := StringOfChar(#00,fs.Size);
    fs.Read(sBuf[1],fs.Size);
  finally
    FreeAndNil(fs);
  end;
end;

Umwandeln von Zeichen

Delphi-Quellcode:

for i := 1 to length(sBuf) do
begin
  if sBuf[i] = #00 then sBuf[i] := #32;
end;

Füllen eines Memos aus dem Buffer

  Memo1.Lines.Text := sBuf;

[Ultimator]

@Äfan: Das war eine "oder"-Frage

Für den FileStream schau dir mal die OH an, da ist eigentlich alles wichtige drin