Soru = Girilen karakterlerin basamak sayısını bulan programı fonksiyonda yapınız.
Şekli :
Kodlar :
Function basamak(s:string):integer;
begin
basamak:=length(s);
end;
Procedure TForm1.Button1Click(Sender: TObject);
var
sayi:string;
begin
sayi:=edit1.Text;
label3.Caption:=inttostr(basamak(sayi)) + ' ' + 'Basamaktan Oluşmaktadır';
end;
Procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;
Procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Text:='';
edit1.SetFocus;
label3.Caption:='';
end;
Çalışma Şekli :
Burda ise klavyeden girdiğimiz herhangi bir karakterin kaç karakter olduğunu bulur. Temizle buton ise edit ve labeli sıfırlar.Çıkış ise programdan çıkmak için kullanılır.
|
