Delphi iki basamaklı girilen sayıyı karaktere çevirme

Kodla Büyü

SADETTİN

Seçkin Üye
Seçkin Üye
Mesajlar
334
procedure TForm1.Button1Click(Sender: TObject);
var
sayi1:integer;
begin
sayi1:=StrToInt(Edit1.Text);
edit2.Text:=inttostr(sayi1 div 10);
edit3.Text:=inttostr(sayi1 mod 10);
edit4.Text:=edit2.Text+' '+edit3.Text;
end;

Programı indirmek için :
 

Ekli dosyalar

  • program.rar
    163.3 KB · Görüntüleme: 34
Geri
Üst