hy,
in dieser funktion gibst du deinen string,seperator und nummer des wortes an, und du bekommst dein wort als resutat heraus :
Delphi-Quellcode:
function EXTRACTION (S : string; OP : string; I : integer) : string;
var
COUNTER,X,OPDEP,OPFIN : integer;
begin
COUNTER := 1;
X := 0;
RESULT := '';
OPDEP := 0;
OPFIN := 0;
while (COUNTER <= length(S)) AND (I <> X) do
begin
if (OP = S[COUNTER]) OR (COUNTER = length(S)) then
begin
OPDEP := OPFIN;
OPFIN := COUNTER;
X := X + 1;
end;
if X = I then
RESULT := copy(S,OPDEP+1,OPFIN-OPDEP-1);
COUNTER := COUNTER + 1;
end;
end;
S ist dein gesamter string, OP dein seperator(in deinem fall dann einfach ein space), und I ist die Stelle deines Wortes!
cu