Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by s14,
7. Mai 2004
Also, ich habs jetzt doch mal probiert, funktioniert eigentlich 8)
procedure SplitStrToStringList(const source: String; const Delimiter: String; Dest: TStrings);
begin
Dest.Text := StringReplace(Source, Delimiter, #13#10, );
end;
Aufruf dann beispielsweise zum testen mit:
procedure TForm1.Button24Click(Sender: TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by s14,
7. Mai 2004
@SirThornberry: Da hast Du natürlich Recht, NUR :wink:
die Frage bezog sich doch auf das Trennen einer einzigen Zeile nach Leerzeichen, also ohne weitere Umbrüche.
Gruß
s14
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by s14,
7. Mai 2004
@SirThornberry
Mal nur so eine Idee, wie wär's damit :?:
Dest.Lines.Text := StringReplace(Source, Delimiter, #13#10, );
Gruß
s14