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

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

selchuk

  • Kıdemli Üye
  • *****
  • Rep: +0/-0
  • Çevrimdışı Çevrimdışı
  • İleti: 90

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?
Kayıtlı

aligel54

  • Kıdemli Üye
  • *****
  • Rep: +1/-0
  • Çevrimdışı Çevrimdışı
  • İleti: 242
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 Gönderen: aligel54 »
Kayıtlı

selchuk

  • Kıdemli Üye
  • *****
  • Rep: +0/-0
  • Çevrimdışı Çevrimdışı
  • İleti: 90
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.
Kayıtlı

barutali

  • Global Moderatör
  • *****
  • Rep: +34/-0
  • Çevrimdışı Çevrimdışı
  • Cinsiyet: Bay
  • İleti: 1.152
  • Arkandan Bir Sigara Daha Yaktım ...
    • HerÅŸeyi bilen ÅŸey
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;
Kayıtlı
En İyi Öğrenme Metodu Yaparak Ve Yaşayaraktır. M.K.Atatürk.

selchuk

  • Kıdemli Üye
  • *****
  • Rep: +0/-0
  • Çevrimdışı Çevrimdışı
  • İleti: 90
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.
Kayıtlı