cok karışık memo işlemi

[gloryboy]

elimde 2 tane memo var

biri 10.000 satır listeyle dolu

şimdi yapmak istediğim şey şu

bir buton olacak ve bu butona bastığımda 10.000 satırlık liste 50 şer satırlar halinde memo2 e doldurulacak fakat memo2 bir kerede 50 satırdan fazla alamıyor yani 10.000 satırı 50 şer 50 şer memo2 ye eklemem lazım ve bunu bir kez butona basınca yapmam lazım timer kullanarak olabilir sanırım

nasıl yaparım bunu

arkadaşlar çok saçma gelebilir ama programda bunu yapmam gerekiyor yarım ederseniz sevinirim gerçekten

[uğur alkan]

Richedit kullan 10000 satır memoda biraz zor işlenir. Memo max kapasite 64KB... richedit and memo

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
for t:=(ilk_satır)  to (ilk_satır+49) do
begin
memo2.lines.add(memo1.lines[t])
end;
ilk_satır:=ilk_satır+49;
end;

ilk_satır degişkenini işleme başlamadan önce başka bir butonla sıfırlarsan iyi olur sen her butona basışta 50 50 değerler transfer edilecektir. otomatik yapmak istersende ilk_satır üzerinden while döngüsüylede yapabilirsin