conversion de string a entero

[click]

el string es

s:='125.39';

y cargar a la variable entera con 125

e:=125;

sencillo?

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
S:String;
e:Integer;
begin
s:='125.39';
e:=StrToInt(Copy(s,1,(Pos('.',s))-1));
ShowMessage(IntToStr(e));
end;

Un Saludo.

[[Ohcan]]

Otra opción:

Código Delphi [-]
e := Trunc(StrToFloat(s))

Saludos