Memo und Texfile

[danidano]

Hallo

Ich habe eine Datei, ein Textfile, von dem ich Daten in ein Array speichern möchte, von diesem Array dann in ein Memofeld und von dem Memofeld anschließend in ein Labelfeld. (Das ganze natürlich auch andersrum und in anderen Reihenfolgen etc. - deswegen das Array)

Delphi-Quellcode:

  Posts : array[1..33] of string;
  Eins : Textfile;

Delphi-Quellcode:

    AssignFile(Eins, 'Postit1.txt');
    Reset(Eins);
    For i := 4 to 13 do
    begin
      Readln(Eins, Posts[i]);
    end;

Hier wird in das Array an den Stellen 4 bis 13 mit den Zeilen des Texfiles befüllt. Das klappt funktioniert auch.

Doch wie bringe ich diese Daten nun in ein Memofeld?
Ich hab das mal so gemacht:

Delphi-Quellcode:

      For i := 0 to 9 do
      begin
        Memo3.Lines.Strings[i] := Posts[i+4];
      end;

Eigentlich müssten jetzt im Memofeld schon die Daten drinnen stehen, oder nicht?
Weil irgendwie steht da nur die erste Zeile drinnen, aber nicht die anderen 9...
woran kann das liegen?

[danidano]

Ach das funktioniert mit ADD!!!
Ach du meine Güte.. Da rätsel cih jetzt seit 2 Stunden herum und probier...
Sorry, ich bin in letzter Zeit nicht ganz auf der Höhe mit dem Denken... ^^
Hat sich erledigt.

[Noedel]

so funktionierts:

Delphi-Quellcode:

var i: byte;
begin
Memo1.Clear;
for i:=1 to 10 do
Memo1.Lines.Add('hallo'+IntToStr(i));

musste halt anpassen

// edit: 2l8