Delphi 7'de program yazmak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
mervetoprak
Üye
Mesajlar: 3
Kayıt: 27 Eyl 2014 03:54

Delphi 7'de program yazmak

Mesaj gönderen mervetoprak »

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ü :(
Senat0r
Üye
Mesajlar: 80
Kayıt: 13 Tem 2014 09:30
Konum: Antalya

Re: Delphi 7'de program yazmak

Mesaj gönderen Senat0r »

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;
Bu şekilde istediğiniz sonucu elde etmiş olursunuz.
gideceği limanı bilmeyen gemiye hiçbir rüzgar yardım edemez...

Kod: Tümünü seç

Delete from hayat where cins="çıkarcılar"
mervetoprak
Üye
Mesajlar: 3
Kayıt: 27 Eyl 2014 03:54

Re: Delphi 7'de program yazmak

Mesaj gönderen mervetoprak »

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
Senat0r
Üye
Mesajlar: 80
Kayıt: 13 Tem 2014 09:30
Konum: Antalya

Re: Delphi 7'de program yazmak

Mesaj gönderen Senat0r »

Ben nereye yazdıracağınızı bilmediğim için showmessage kullandım dilerseniz forma bir adet memo nesnesi ekleyin sonra buttona

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;
Kodu yazın memoda edit uzunluğu kadar yazacaktır.
gideceği limanı bilmeyen gemiye hiçbir rüzgar yardım edemez...

Kod: Tümünü seç

Delete from hayat where cins="çıkarcılar"
mervetoprak
Üye
Mesajlar: 3
Kayıt: 27 Eyl 2014 03:54

Re: Delphi 7'de program yazmak

Mesaj gönderen mervetoprak »

Bir edit bir memo bir de buton kullanıcam memoya mı yazıcam bu kodu butona mı :/
Senat0r
Üye
Mesajlar: 80
Kayıt: 13 Tem 2014 09:30
Konum: Antalya

Re: Delphi 7'de program yazmak

Mesaj gönderen Senat0r »

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"
Cevapla