Datei einlessen und Text in richedit ausgeben

[ferby]

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);

[fkerber]

Hi!

Warum machst du nicht nur:

Delphi-Quellcode:

hauptrichedit1.lines.loadfromfile('speicher.txt');

Ciao Frederic

[ferby]

Hallo,


Weil ich nicht gewusst habe das es so einfach ist, danke!

[fkerber]

Hi!

Bitteschön.


Ciao Frederic