
Delphi 7'de program yazmak
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 3
- Kayıt: 27 Eyl 2014 03:54
Delphi 7'de program yazmak
Arkadaşlar ben yeni başladım Delphiye. İstediğim program şu: Ekrana adımızı yazıcaz mesela "merve" ve karakter sayısı kadar ekrana yazcak. yani adımız 5 karekter oldugu için ekrana arka arkaya 5 kere merve yazacak. Ama yapamadım bi türlü 

Re: Delphi 7'de program yazmak
Kod: Tümünü seç
var
a,I:integer;
begin
a:=Length(Edit1.Text);
for I := 1 to a do
begin
showmessage(edit1.text);
end;
gideceği limanı bilmeyen gemiye hiçbir rüzgar yardım edemez...
Kod: Tümünü seç
Delete from hayat where cins="çıkarcılar"
-
- Üye
- Mesajlar: 3
- Kayıt: 27 Eyl 2014 03:54
Re: Delphi 7'de program yazmak
Peki bu şekilde yapınca kutucuk geliyor mesela can yazdık diyelim ekrana can yazıyor okey diyorum bi daha yazıyor okey diyorum bi daha yazıyor. Bunun yerine butona tıkladığımda ekranda arka arkaya 3 kere can yazısını görüp ondan sonra okey dediğimizde bitmez mi bu şekilde nasıl olur
Re: Delphi 7'de program yazmak
Ben nereye yazdıracağınızı bilmediğim için showmessage kullandım dilerseniz forma bir adet memo nesnesi ekleyin sonra buttona
Kodu yazın memoda edit uzunluğu kadar yazacaktır.
Kod: Tümünü seç
var
a,I:integer;
begin
memo1.Lines.Clear;
a:=Length(Edit1.Text);
for I := 1 to a do
begin
memo1.Lines.Add(edit1.Text);
end;
end;
gideceği limanı bilmeyen gemiye hiçbir rüzgar yardım edemez...
Kod: Tümünü seç
Delete from hayat where cins="çıkarcılar"
-
- Üye
- Mesajlar: 3
- Kayıt: 27 Eyl 2014 03:54
Re: Delphi 7'de program yazmak
Bir edit bir memo bir de buton kullanıcam memoya mı yazıcam bu kodu butona mı :/
Re: Delphi 7'de program yazmak
Buttona yazacaksınız .
gideceği limanı bilmeyen gemiye hiçbir rüzgar yardım edemez...
Kod: Tümünü seç
Delete from hayat where cins="çıkarcılar"