String an bestimmtem Zeichen Splitten

[FAlter]

Hi,

Zitat von cRayZo:

Delphi-Quellcode:

  RandomZeile:  integer;
  Loesung:       string;
{Vorgabe}
SplitStr(const S: string; Delim: Char; out S1, S2: string)
{von mir ausgefüllt}
Splitstr(Richedit1.Lines[RandomZeile],'=',label1.Caption ,Loesung)

..

Delphi-Quellcode:

var
  RandomZeile:  integer;
  Loesungm Key: string;

Key := RichEdit1.Lines.Names[RandomZeile];
Label1.Caption := Key;
Loesung := RichEdit1.Lines.Values[Key];

Da es gerade in nem anderen Thread darum geht... Ist bei Delphi und Lazarus (bzw. VCL und LCL) gleich.

Mfg
FAlter