Problem mit function

[Meflin]

Hi,
leider ist mir kein passender titel eingefallen
ich habe folgendes prob: ich brauche eine function, die mir aus einem string 'bla bla1 bla2 bla3 blan' über einen index blan zurückgibt, z.B. beim index 2 bla2. dazu hab ich folgendes geschrieben:

Delphi-Quellcode:

function GetParam(ParamString: string; ParamIndex: Integer): string;
var i,t,count: integer;
    x: string;
begin
  count := 0;
  for i := 0 to ParamIndex do begin
    for t := 1 to length(ParamString) do begin
      if ParamString[t] = ' ' then begin
        count := count + 1;
        if count = ParamIndex then begin
          x := Copy(ParamString,t,length(ParamString));
        end;
      end;
    end;
  end;
end;

was soweit auch geht, nur eben immer den ganzen restlichen string zurückgibt und nicht nur den string bis zum nächsten leerzeichen. ich bin ziemlich ratlos wie ich das jetzt machen soll
plz hlp!

*MFG*

[HaJo]

Hallo Meflin,

also wenn ich das richtig verstehe, hat Dein String Leerzeichen und Du willst danach trennen.

Also bietet es sich doch an, diese Leerzeichen zu zählen und in einem zweiten Schritt, anhand der Menge der Leerzeichen mit den Funktionen Copy erst den Teilstring zu isolieren und anschließend mit Delete den Teilstring entfernen - und das sooft Leerzeichen vorhanden sind.

Gruß Jochen

[Luckie]

Du könntest die Funktion Explode aus der Code-Lib benutzen.

[Meflin]

thx