Einzelnen Beitrag anzeigen

ferby

Registriert seit: 15. Aug 2004
Ort: Wien
841 Beiträge
 
Delphi 2010 Enterprise
 
#1

Datei einlessen und Text in richedit ausgeben

  Alt 19. Aug 2004, 22:34
Hallo,

Ich bring es einfach nicht zusammen....

Ich habe in einer Text Datei stehen:

Erste Zeil
Zweite Zeile
Dritte Zeile
etc.


Und möchte jetzt diese Zeilen von der Datei in ein Reichedit Feld rein haben,
kann mir wer eine Lösung vorschlagen?


So sieht mein Quelltext aus, leider muss er falsch sein (Es wird aber kein Fehler seitens Delphi angezeigt):

Delphi-Quellcode:
 begin
  assignfile(speichern, 'speicher.txt');
  reset(speichern);
  read(speichern, text1);

  y:=0;

for i:=1 to filesize(speichern) do
    begin
      hauptrichedit1.lines[y]:= hauptrichedit1.lines[y] + text1[i];
      if text1[i]= #10 then y:=y+1;
    end;

  closefile(speichern);
  Mit Zitat antworten Zitat