memo1'deki satırları memo2'ye copyalama.

[tayc]

mrh,arkadaşlar......

500 satırdan oluşan memo1'den, 50 ile 200 satırlarının arasını alıp, hızlı bir şekilde nasıl memo2'ye aktarabilirim.....

herkese iyi çalışmalar....

[brs]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
begin
  for I := 0 to Memo1.lines.count - 1 do
  begin
    Memo2.lines.add(Memo1.lines[I]);
  end;
end;

Kod: Tümünü seç

procedure TForm1.KopyalaClick(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  Memo1.Clear;
end;

Kod: Tümünü seç

procedure TForm1.YapıştırClick(Sender: TObject);
begin
  Memo2.PasteFromClipboard;
end;

[carsoft]

Kod: Tümünü seç

Memo2.Lines.BeginUpdate;
try
  for i := 0 to -1 do
    Memo2.Lines.Add( Memo1.Lines[ i ] );
finally
  Mome2.Lines.EndUpdate;
end;

[tayc]

cevaplar için sağolun arkadaşlar, amma memo1'deki bütün satırları değil, sadece belirli satır aralarını kopyalayacak, 500 satırlık memo1'in, 50 ile 150 satır arasını kopyalaması gibi.

herkese iyi çalışmalar......

[esistem]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
begin
  for I := 0 to Memo1.lines.count - 1 do
  begin
if (I>=50 AND I<=150) then
    Memo2.lines.add(Memo1.lines[I]);
  end;
end;

[SimaWB]

cevaplar için sağolun arkadaşlar, amma memo1'deki bütün satırları değil, sadece belirli satır aralarını kopyalayacak, 500 satırlık memo1'in, 50 ile 150 satır arasını kopyalaması gibi.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Memo2.Lines.BeginUpdate;
  try
    for i := 50 to 150 do
      Memo2.Lines.Add(Memo1.Lines[I]);
  finally
    Memo2.Lines.EndUpdate;
  end;
end;

[tayc]

Cevaplar için, bütün arkadaşlara çok teşekkür ederim...

herkese iyi çalışmalar ve başarılar dilerim..........