stringi decimale cevirme

[Lord_Ares]

wep sayfasından aldığım 462.230,50 TL değeri paradox veritabanındaki currency alana kaydetmek istiyorum.
Fakat bir türlü dönüşümü yapamadım. String veriyi currencye nasıl çevirebilirim.
Strtocurr fonksiyonu değerin float olmadığı hakkında hata veriyor.
teşekkürler.

[vkamadan]

Merhaba ,
Öncelikle TL kısmı ve boşlukları atarak işe başlayın , sonra basamak gruplandırmayı atın ve son olarak onalık ayıracı sisteminizdeki ondalık ayırcaı ile değiştirip çevirin.

Kod: Tümünü seç

function DecimalYap( pStrDeger : String ) : Currency;
var
 AraDeger : String ;
begin
   AraDeger := StringReplace( pStrDeger , 'TL' , '' , [] ) ;
   AraDeger := StringReplace( AraDeger , ' ' , '' , [rfReplaceAll] ) ;
   AraDeger := StringReplace( AraDeger , '.' , '' , [rfReplaceAll] ) ;
   AraDeger := StringReplace( AraDeger , ',' , DecimalSeperator , [rfReplaceAll] ) ;
 Result := StrToCUrr( AraDeger );
end;

kolay gelsin.

[Lord_Ares]

Bu kod çok işime yaradı. vkamadan, çok teşekkürler yardım için.