Please hjelp!?

Med denne koden blir Edit1.Text "123456ٱabc", så mitt spørsmål er:
hvordan får jeg Edit1.Text til å bli KUN "123456"???

procedure TForm1.Button1Click(Sender: TObject);
var
iPos: integer;
TmpStr: String;
begin
TmpStr := 'NAME:123456'#13 + 'abc';
iPos := Pos('NAME:', TmpStr);
Edit1.Text := Copy(TmpStr, iPos + 5, 10);
end;

DiZpel

Prøv med:

<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
Pos1, Pos2: integer;
TmpStr: String;
begin
TmpStr := 'NAME:123456'#13 + 'abc';
Pos1 := Pos('NAME:', TmpStr) + 5;
Pos2 := Pos(#13, TmpStr);
Edit1.Text := Copy(TmpStr, Pos1, Pos2 - Pos1);
end;
</pre>

procedure TForm1.Button1Click(Sender: TObject);
var
iPos: integer;
TmpStr: String;
begin
TmpStr := 'NAME:123456'#13 + 'abc';
//Hvad giver denne linje af mening? burde det ikke være TmpStr := 'NAME:123456#13' + 'abc';

iPos := Pos('NAME:', TmpStr) + 5;
Edit1.Text := Copy(TmpStr, iPos + 5, pos(tmpstr, '#'));
end;

Jeppe Johansen
Jeppesoftware@hotmail.com