String teilen???

[ralfi]

Hallo!

Ich habe z. B. ein Text im Memo:

Ralf Mustermann
Musterstrasse 1
10000 Berlin

Wie kann ich jede Zeile in einen String umwandelt?

[Garby]

Hallo,

Delphi-Quellcode:

Stringvariable := Memo.Lines.Text;

[choose]

bzw

Delphi-Quellcode:

Assert(Memo1.Lines.Count>=3, 'Expecting 3 lines in Memo');

myName:= Memo1.Lines[0];
myStreet:= Memo1.Lines[1];
myCity:= Memo1.Lines[2];

[Luckie]

Er woillte jede einzeln haben:

Delphi-Quellcode:

var
  s: String;
  Loop: Integer;
begin
  for Loop := 0 to Memo1.Lines.Count - 1 do
  begin
    s := Memo1.Lines.Strings[Loop];
    ShowMessage(s);
  end;

[Grumble]

also wenn du je zeile einen string haben willst oder nur eine bestimmte zeile dann wohl so:

Delphi-Quellcode:

memo1.Lines.Strings[i-1];

wobei i die zeile angibt, -1 nur fallss das im memo auch bei 0 zu zaehlen anfaengt

gruesse
grumble