Listbox splitten!

[thiagojonas]

Hallo Leute,
ich lasse zwei werte in eine zeile in eine listbox einfügen.

Delphi-Quellcode:

 

procedure TForm1.start_btnClick(Sender: TObject);
var flug: string;
begin
flug := '001';
   Listbox.AddItem(flug + ' | ' + 'HALLO',Listbox);
end;

Wenn ich jetzt mit der Maus diese Zeile makiere, dann möchte ich gerne jetzt über "ShowMessage" nur das Wort anzeigen lassen, was als "flug" deklariert ist.
Wie kriege ich das hin?
Danke :-D

[Noedel]

frag die Position von | ab und gib das davor aus

[thiagojonas]

Und wie mache ich das? :oops: :-D

[toms]

Zitat:

Zitat von Noedel

frag die Position von | ab und gib das davor aus

mit Pos()

[thiagojonas]

Okay. Dann so, stimmts?

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var flug: string;
position:integer;
begin
flug := '001';
Position := Pos(flug, '001 Wayne'); // "001 Wayne" steht für die ZEILE in der Listbox
if Position <> 0 then
    ShowMessage('gefunden an Position: '  + IntToStr(Position))
  else
    ShowMessage('nicht im String vorhanden');
end;

Hier halt Position 1.

Und was mache ich dann?

[DeddyH]

Wenn Du die Position hast, dann mit Copy() von 1 bis Position in einen neuen String kopieren.

[mkinzler]

Alternativ mit einer StringListe (per Delimiter)

[DeddyH]

Finde ich für eine Zeile etwas oversized :mrgreen:

[mkinzler]

Wenn es bei der einen bleibt ja.

[DeddyH]

Hab ich so verstanden.

Zitat:

Wenn ich jetzt mit der Maus diese Zeile makiere, dann möchte ich gerne jetzt über "ShowMessage" nur das Wort anzeigen lassen, was als "flug" deklariert ist.