Moin, moin,
ich lerne so abends nebenbei seit letzer Woche Delphi und stoße natürlich als Anfänger immer wieder auf kleine Probleme.
Ich hab mir in den Sinn gesetzt aus einem TMemo-Feld den eingegeben Inhalt in ein TStringList zu schreiben und wieder zurück.
Leider klappt das nicht so wie ich mir das Vorstelle und nach einer etwas längeren Woche (Gehirn etwas ausgepowert) und einer kurzen Suche hier im Forum bin ich nicht klüger.
Delphi-Quellcode:
procedure TForm1.Button1(Sender: TObject);
var
mylist : TStringList;
i : Integer;
begin
mylist.Create;
if Memo1.MaxLength >0 then
begin
for i:= 0 to Memo1.MaxLength do begin
mylist.add(Memo1.Lines[i]);
end;
end;
end;
Naja compilieren lässt sich das gebe ich dann im TMemofeld z.b.:
alpha
beta
delta
usw.
ein dann bekomme ich bei MaxLength 0
Lass ich mir aber alles als Memo1.Text geben bekomme ich einen String, habs mir auf ein Label ausgegeben.
Jetzt steh ich aber auf der Leitung (wieder einmal), warum bekomme ich bei Lines nix raus und warum ist da MaxLength 0? Hat da einer noch am Freitag abend lust mir (wieder mal) von der Leitung zu helfen?
Gruß
Ma.Ge.