Extract word from string

[nahpets]

Hallo,

Delphi-Quellcode:

Var
  iPos  : Integer;
  i1280 : Integer;
  i2000 : Integer;
begin
  iPos  := Pos('x',listbox.items.strings[3]);
  i1280 := StrToIntDef(Copy(listbox.items.strings[3],1,iPos - 1),0);
  i2000 := StrToIntDef(Copy(listbox.items.strings[3],iPos + 1,255),0);
end;