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

selchuk · « : 04 Şubat 2010 01:13:47 »

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?

aligel54 · « **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;

selchuk · « **Yanıtla #2 :** 06 Şubat 2010 23:39:53 »

Evet istediğim buydu. Çok Teşekkür ederim.

barutali · « **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;

selchuk · « **Yanıtla #4 :** 08 Şubat 2010 19:46:13 »

Alternatif yöntemler için teşekkür ederim.

Kullanıcı

Sohbet Penceresi

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

selchuk

Memo daki alan kadar while eof döngüsü yapılabilirmi?

aligel54

Ynt: Memo daki alan kadar while eof döngüsü yapılabilirmi?

selchuk

Ynt: Memo daki alan kadar while eof döngüsü yapılabilirmi?

barutali

Ynt: Memo daki alan kadar while eof döngüsü yapılabilirmi?

selchuk

Ynt: Memo daki alan kadar while eof döngüsü yapılabilirmi?