Alle klar danke.
Für alle mit dem selben problem:
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
var flug: string;
position:integer;
target:string;
begin
flug := '001';
Position := Pos(flug, '001 Wayne');
Target := Copy(flug,position);
if Position <> 0 then
ShowMessage('gefunden an Position: ' + target)
else
ShowMessage('nicht im String vorhanden');
end;
Danke nochmal an euch alle!
