Thema: Delphi EXE in Memo

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#24

Re: EXE in Memo

  Alt 31. Dez 2004, 15:12
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;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat