String til array

Det sådan en du selv må lave

Copy(Str,1,pos(' ',Str));
...


/Martin

Hvis du bruger delphi 6 er der en funktion der hedder delimitedText

var
  L : TStringList;
begin
  L := TStringList.Create;
  L.Delimiter := ' ';  (*space*)
  L.DelimitedText := Edit1.Text;
  (*L.Text := Edit1.Text;*)
  ShowMessage(L[0]+' ' +L[1]);
end;

Ellers:


type
  strarr=array[1..10] of string;

const
  bksp = chr(VK_SPACE);

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  n:integer;
  sa: strarr;

Procedure ExpStr(s1:string; var s2: strArr; var num: integer);
var
  bspos: integer;
  temp : string;
Begin
  num := 0;
  if length(s1) > 0 then
    repeat
      inc(num);
      bspos := pos(bksp,s1);
      if bspos <> 0 then
      begin
        temp := copy(s1,1,bspos-1)+' = ';
        delete(s1,1,bspos);
        bspos := pos(bksp,s1);
        If bspos = 0 then bspos := length(s1)+1;
        temp := temp+copy(s1,1,bspos-1);
        delete(s1,1,bspos);
        S2[num] := temp;
      end;
    until length(s1)=0;
End;

begin
  s := 'hest ko';
  ExpStr(s,sa,n);
  label1.caption := sa[1]+' , '+sa[2];
  label2.caption := inttostr(n);          {antal}
end;

Takker

fy hreff... det er kun borrisholt der må bruge hest ))))

Ok, så må du rette det til s := 'zebra ko';
Det skal aldrig ske igen!
//hreiff ;o)