Einzelne Wörter aus String->Help plz

[ssach]

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