Może troche późno i bawię się w archeologa ale specjalnie dla ciebie napisałem taką funkcje bo mi się nudziło ;d
Kod:
function dodaj_zera(str:string;ilosc:string;jednostka:string):string;
begin
if(StrToInt(Copy(str,Pos(',',str)+1,Length(str)))<StrToInt('1'+ilosc)) then
begin
Result:=FloatToStr(int(StrToFloat(str)))+','+Copy(str,Pos(',',str)+1,Length(str))+ilosc+' '+jednostka;
end
else
begin
Result:=str;
end;
end;
sposób użycia:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=dodaj_zera(Edit1.Text,'0','zl');
end;
gdzie:
Edit1.Text:=dodaj_zera(jeden,dwa,trzy);
jeden - liczba(w stringu czyli w Edit)
dwa - ilosc zer które ma dodać(w stringu np '000' a w twoim przypadku '0')
trzy - jednostka(w stringu np 'zl')
Uwaga!:Kod nie zadziała gdy klikniesz drugi raz gdyż jest już dodana końcówka zl a jej nie da sie zamienic na liczbe.
Jeżeli bedziesz chciał zrobie ci wersje bez jednostki lub jednostke w osobnym labelu.
Pozdrawiam,
Regonos.