var
Form1: TForm1;
var a,b,c,d,e:real;
h:string;
implementation
{$R *.dfm}
function DecToStr(Dec: string): string;
var
i: Integer;
begin
result := '';
for i := 1 to Length(Dec) do
begin
if Dec[i] <> ThousandSeparator then
result := result + Dec[i];
end;
end;
function DecToFloat(Dec: string): Real;
begin
Dec := DecToStr(Dec);
result := StrToFloatDef(Dec, 0);
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
UbahAngka (Sender);
begin
a:=DecToFloat(edit1.Text);
d:=a*0.4;
edit4.Text:=DecToStr(FLOATTOSTR(d));
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.SetFocus;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
b:=DecToFloat(edit1.Text);
e:=a*0.6;
edit5.Text:=floattostr(e)
end;
procedure TForm1.Edit3Change(Sender: TObject);
begin
if (e >=80) then
h:='a'
else if (e>=70)and (e<80) then
h:='b'
else if (e>=60)and (e<70) then
h:='c'
else if (e>=50)and (e<60) then
h:='d'
else
h:='e';
edit3.Text:=floattostr(e);
edit6.Text:=h;
end;
procedure TForm1.Edit5Change(Sender: TObject);
begin
d:=strtofloat(edit4.Text);
e:=strtofloat(edit5.Text);
c:=d+e;
edit3.Text:=floattostr(c);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DateSeparator := '-'; ShortDateFormat := 'mm/dd/yyyy'; edit7.Text := 'Hari ini' + DateToStr(Date);
end;
procedure TForm1.UbahAngka(Sender: TObject);
var
sRupiah: string;
iRupiah: Currency;
begin
sRupiah := TEdit(Sender).Text;
sRupiah := StringReplace(sRupiah,',','',[rfReplaceAll,rfIgnoreCase]); // hilangkan char koma , pemisah //ribuan selain IDR
sRupiah := StringReplace(sRupiah,'.','',[rfReplaceAll,rfIgnoreCase]); //remove char titik . pemisah //ribuan IDR
iRupiah := StrToCurrDef(sRupiah,0); // convert srupiah ke currency
//currency --> format ribuan
TEdit(Sender).Text := FormatCurr('#,###',iRupiah);
TEdit(Sender).SelStart := length(TEdit(Sender).text);
end;
end.
0 Comments