Hallo Marc,
du könntest auf die Funktion Split gut verzichten:
Delphi-Quellcode:
procedure TDemoForm.ShowClients(sClients: string);
var
sl: TStringList; // Hilfsobjekt für String-Zerlegung
begin
// Instanz erzeugen
sl := TStringList.Create;
// Parser auf Trennzeichen colon umpolen
sl.Delimiter := ':';
// Parser füttern, die einzelnen Namen werden dadurch als
// einzelne Items in der Liste geführt
sl.DelimitedText := sClients;
// Übernehmen der Items von sl nach lbClients.Items
lbClients.Items.Assign(sl); // lbClients: ListBox
// Hilfsobjekt zerstören
sl.Free;
end;
procedure TDemoForm.ShowButtonClick(Sender: TObject);
begin
ShowClients('chris:oli:marc:seppl');
end;
Grüße vom marabu
Jetzt mit Kommentaren...