String

[3_of_8]

Ich würds eher mit downto 1 probieren.

Und da fehlt ein begin...end; ansonsten wird nur gebreakt.:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  s,zahl:string;
  i:Integer;

begin
s:='TEST 38';
  for i:=length(s) downto i do
  begin
    if s[i]=' ' then
      break;
   zahl:=copy(s,i,MaxInt);
   Label1.Caption:=zahl;
  end;
end;
end.