Split-komando i Delphi

prøv den her :

Function ResolveNextToken(var s : String; Token : String) : String;
var
  j : Integer;
begin
  Result := \'\';
  if s=\'\' then
    Exit;

  j:= Pos(Token,s);
  if j <> 0 then
  begin
    dec(j);
    Result:=copy (s,1,j);
    Delete(s,1,j+ Length(Token));
  end
  else
  begin
    Result:=s;
    s:= \'\';
  end
end;

Jens B

Functionen returnerer da kun en variabel, ikke? (Jeg er newbie i Delphi!!)

Mvh Jakob Thomsen

oki ...

var
  s : String;
  Token : String;
begin
  S:= \'Jakob,Thomsen,Jens,Borrisholt\' ;
  repeat
    Token := ResolveNextToken(s);
    ShowMessage(token);
  until s := \'\';
end;

Jens B

Jeg siger mange tak

Mvh Jakob Thomsen