procedure TForm1.Button1Click(Sender: TObject);
var
sy,yz,i:Integer;
begin
try
sy:=StrToInt(Edit1.Text);//Yüzdesi alınacak Sayı
yz:=StrToInt(Edit2.Text);//Yüzdesi
i:=(100 * yz) div sy;
Label1.Caption:=FloatToStr(i);
Label1.Caption := ('%'+FormatFloat('#,',i));//Sonuç
except
ShowMessage('Lütfen Yüzdesi alınacak Sayıları giriniz?');
end;
end;
var
sy,yz,i:Integer;
begin
try
sy:=StrToInt(Edit1.Text);//Yüzdesi alınacak Sayı
yz:=StrToInt(Edit2.Text);//Yüzdesi
i:=(100 * yz) div sy;
Label1.Caption:=FloatToStr(i);
Label1.Caption := ('%'+FormatFloat('#,',i));//Sonuç
except
ShowMessage('Lütfen Yüzdesi alınacak Sayıları giriniz?');
end;
end;