Kullanıcı

Hoşgeldiniz Ziyaretçi. Lütfen giriş yapın veya kayıt olun.
E-posta adresinize aktivasyon iletisi gelmediyse lütfen buraya tıklayın.
03 Eylül 2010 13:49:43

Kullanıcı adınızı, şifrenizi ve aktif kalma süresini giriniz

Sohbet Penceresi

Son 5 Notlar:

25 AÄŸustos 2010 16:11:57
slm beyler
27 AÄŸustos 2010 10:00:56
arkadaşlar delphi ile fax nasıl gönderilir şeklinde konuya cevaplarınızı bekliyorum...
  XLG
01 Eylül 2010 17:00:37
arkdaÅŸlar admin kim ya
  XLG
01 Eylül 2010 17:00:55
bi maruzatım olacak ta
Bugün, 11:14:44
Arkadaşlar SUBHAN adlı arkadaşımızdan haberi olan var mı? Bir yıldır hiç siteye girmemiş? Sitesi de borçtan kapanmış. Başına bir şey mi geldi?

Show 50 latest

Gönderen Konu: Memo daki alan kadar while eof döngüsü yapılabilirmi?  (Okunma sayısı 316 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı selchuk

  • Kıdemli Üye
  • *****
  • İleti: 151
  • Rep: +0/-0
  • Cinsiyet: Bay
    • Arma Ticari Sistem
Arkadaşlar şöyle bir sorunum var,

Memo alanındaki satır sayısı kadar dönecek bir döngüye ihtiyacım var.

Normalde herhangi bir tablodaki kayıt sayısı kadar en basit şöyle bir döngü kurabiliyorum

Tablo.First; 
while not Tablo.Eof do
 begin 
  //.... 
  Tablo.Next; 
 end; 


Benzer işlemi memo alanındaki kayıt kadar yapabilirmiyiz?
Knowledge is power (Bilgi Güçtür)

Çevrimdışı aligel54

  • Kıdemli Üye
  • *****
  • İleti: 332
  • Rep: +1/-0
Ynt: Memo daki alan kadar while eof döngüsü yapılabilirmi?
« Yanıtla #1 : 04 Åžubat 2010 08:45:50 »
Şöyle bir şey mi istedin?



var
  i:integer;
  Satir:string;
begin

  i:=0;
  while i<Memo1.Lines.Count do
  begin
    Satir:=Memo1.lines.Strings;

    // Satir la yapilacak iÅŸlemler ...

    i:=i+1;
  end;

end;


« Son Düzenleme: 04 Åžubat 2010 08:48:20 by aligel54 »

Çevrimdışı selchuk

  • Kıdemli Üye
  • *****
  • İleti: 151
  • Rep: +0/-0
  • Cinsiyet: Bay
    • Arma Ticari Sistem
Ynt: Memo daki alan kadar while eof döngüsü yapılabilirmi?
« Yanıtla #2 : 06 Åžubat 2010 23:39:53 »
Evet istediğim buydu. Çok Teşekkür ederim.
Knowledge is power (Bilgi Güçtür)

Çevrimdışı barutali

  • Global Moderatör
  • *****
  • İleti: 1.340
  • Rep: +38/-0
  • Cinsiyet: Bay
  • Falan filan ...
Ynt: Memo daki alan kadar while eof döngüsü yapılabilirmi?
« Yanıtla #3 : 08 Åžubat 2010 04:19:33 »
alternatif olarak farklı yollarla yapımı ...


FOR IN DO

Kod: (delphi) [Seç]
var
 satir : string;
begin
for satir in Memo1.Lines do
 begin
    Memo2.Lines.Add(satir);
 end;

FOR TO DO

Kod: (delphi) [Seç]
var
 satir : string;
 J     : integer;
begin
   for j := 0 to Memo1.Lines.Count -1 do
    begin
      satir := Memo1.Lines.Strings[j];
      Memo2.Lines.Add(satir);
      (* YADA
      Memo2.Lines.Add(Memo1.Lines.Strings[j]);
      *)
    end;
end;
En İyi Öğrenme Metodu Yaparak ve Yaşayaraktır.
M.Kemal ATATÜRK

Çevrimdışı selchuk

  • Kıdemli Üye
  • *****
  • İleti: 151
  • Rep: +0/-0
  • Cinsiyet: Bay
    • Arma Ticari Sistem
Ynt: Memo daki alan kadar while eof döngüsü yapılabilirmi?
« Yanıtla #4 : 08 Åžubat 2010 19:46:13 »
Alternatif yöntemler için teşekkür ederim.
Knowledge is power (Bilgi Güçtür)