Mengembalikan hasil FormatFloat

Saya punya data contoh :

t:=2500000

edit1.text:=FormatFloat('#,##0.00",t);

maka edit1.text = 2.500.000,00

Gimana sintaknya agar dari 2.500.000,00 menjadi 2500000??

klo dengan cara seperti ini:

StrToFloat(edit1.text);

malah error....

Thanks sebelumnya

jawab :

saya menggunakan button untuk proses ini, dari variabel berupa string dengan format mata uang dikonversi ke format normal yang hasilnya ditampilkan pada message

procedure TForm1.Button1Click(Sender: TObject);

var s,s2:string;

i:byte;

begin

s:='2.500.000,00';

s2:='';

for i:=1 to length(s) do

begin

if (s[i]='.') then s2:=s2

else

if (s[i]=',') then break

else

s2:=s2+s[i];

end;

showmessage(s2);

end;