Hallo sirius,
das meinte ich:
Delphi-Quellcode:
//procedure teilen(s:string;const a:TStringlist;const t:char=':');
procedure teilen(const s:string;a:TStrings;t:char=':');
begin
a.Clear; //stringlist löschen
a.strictdelimiter:=true; //auf Hinweis von der_Unwissende eingefügt
a.Delimiter:=t; //Delimiter setzen
a.DelimitedText:=s; //s wird in die Stringlist anhand des Delimiters einsortiert
end;
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
//Probestring erzeugen
s:='abc:def:ghi:2';
//funktion starten
teilen(s,memo1.Lines);
end;
Selbstverständlich kann man auch eine TStringList übergeben, aber innerhalb der Prozedur
teilen wird nicht auf die speziellen Eigenschaften dieser Klasse zugegriffen. Durch die Verwendung des Typs
TStrings in der Parameterliste wird die Routine nicht unnötig eingeschränkt.
Gruß Hawkeye