Thema: Delphi Problem mit function

Einzelnen Beitrag anzeigen

Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#1

Problem mit function

  Alt 29. Mai 2004, 17:58
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*
  Mit Zitat antworten Zitat