Thema: Delphi memo lädt nicht

Einzelnen Beitrag anzeigen

Benutzerbild von Nothine
Nothine

Registriert seit: 3. Jul 2004
Ort: Mülheim an der Ruhr
198 Beiträge
 
Delphi 5 Enterprise
 
#9

Re: memo lädt nicht

  Alt 5. Sep 2004, 07:11
mach's so, dann funktionierts, grad selbst getestet
Delphi-Quellcode:
var txt: TextFile;
    C: Char;
    S: string;
begin
  AssignFile(txt,'..\OEWABLog.txt'); //einmal dateinamen einfügen bitte
  Reset(txt);
  while not EoF(txt) do begin
    Read(txt,C);
    if C <> #0 then //<-- ohne das hier würde das selbe wie bei Memo1.Lines.LoadFromFile passieren
      S := S + C;
  end;
  CloseFile(txt);
  Memo1.Lines.Append(S);
end;
if ThisPost is senseless then
ThisPost.WasPostedBy := SomeoneElse();
  Mit Zitat antworten Zitat