q code umschreiben

[misterx]

Delphi-Quellcode:

Var archivo: TextFile; 
    X:integer; 
begin 
For X:=0 to 5000 do 
  Begin 
   AssignFile(Archivo,'log'+IntToStr(X)+'.txt'); 
   {$I-}Reset(Archivo);{$I+} 
    If IOResult<>0 then 
     Begin 
      Rewrite(Archivo); 
      Writeln(Archivo,DateTimeToStr(Now)); 
      Writeln(Archivo); 
      Write(Archivo,Buffer); 
      CloseFile(Archivo); 
      Buffer:=''; 
      Exit; 
     End; 
  End; 
End;

ich wolt wissen wie man das so macht das er es nicht als log abspeichert sondern alles in memo1 schreibt

[Luckie]

TMemo kenn die Eigenschaft Lines, diese wiederr um die Methoden Add und SaveToFile.

[Waldteufel]

Hi.

Rewrite leert die Datei => TMemo.Lines.Clear leert das Memo
WriteLn schreibt eine Zeile in die Datei => TMemo.Lines.Add fügt eine Zeile hinten an den Memo-Text an.

[misterx]

ihr habt mich falsch ferstanden oder ich euch also das prog speichert den text in einer txt so und ich möchte das der gantze text in memo1 angezeigt werden soll nicht geöffnet oder so weill er bis zu 2000 txt macht und immer neue

[alzaimar]

memo1.lines.loadfromfile('c:\foo.txt');

[misterx]

kann man nicht das so machen das es gleich ins memo reingeschriben wird (keylogger) ist das

[jackie]

Wo liegt dein Problem??
Luckie und Waldteufel haben eingentlich schon alles geschrieben, was dazu nötig ist.

[misterx]

das memo1 soll die txt nicht öffnen so der text das das prog erstelt soll gleich ins memo1 aber weil ich net soviel ahnung habe und das prog das speichert wolte ich wissen wie der gantze text das das prog macht ins memo1 kommt ok nicht abspeihern und dan mit memo geöffnet wir so gut

[jackie]

Es wäre hilfreich, wenn du deine Postings mal in korrektem Deutsch erstellen würdest, damit man sie auch versteht!

Wie schon gesagt, du brauchst für dein Problem nur Memo1.Lines.Add(...) zum hinzufügen von Einträgen ins Memo und wenn du dann den Inhalt des Memos abspeichern willst, nimmst du Memo1.Lines.SaveToFile(...). Eventuell noch Memo1.Lines.Clear oder Memo1.Clear (weis nicht, welches das Richtige ist), um das Memo zu leeren.

[jfheins]

Zitat von Luckie:

TMemo kenn die Eigenschaft Lines, diese wiederr um die Methoden Add und SaveToFile.

Zitat von Waldteufel:

Hi.

Rewrite leert die Datei => TMemo.Lines.Clear leert das Memo
WriteLn schreibt eine Zeile in die Datei => TMemo.Lines.Add fügt eine Zeile hinten an den Memo-Text an.

Was brauchst du denn noch ?