Combobox und Mysql(ZEOS Komponenten)

[ipworks]

Delphi-Quellcode:

var
kto,hilfsstr: string;
begin
   hilfsstr:=ComboBox1.Text;
   kto:='';
   for x:=1 to Length(hilfsstr) do begin
     if hilfsstr[x]<>'|' then kto:=kto+hilfsstr[x]
     else break;
   TEdit.Text:=kto;
end;

Alternativ kannst du's auch mit Lastdelimiter machen.