dbgriddeki alanları edit veya memoya dökme

[hso57]

Dbgrid de mailleri listeliyorum. Bunları ";" ekleyerek memo veya editte yazdırmak istiyorum. Nasıl yapabileceğim hakkında fikir sahibi olan varmı? En azından edite veya memoya aktarabilsem yeterli benim için. İyi çalışmalar dilerim...

[ASE]

Kesinlikle geçici bir çözüm ama işini görecektir. Gecenin bu saatinde kafa ancak bu kadar çalıştı.

Kod: Tümünü seç

PROCEDURE TForm1.Button1Click(Sender: TObject);
BEGIN
  ADOTable1.First;
  TRY
    WHILE NOT ADOTable1.EOF DO
    BEGIN
      adotable1.edit;
      ADOTable1KOY.Value := ADOTable1mail.Value + ';';
      memo1.Lines.Add(ADOTable1mail.Value);
      ADOTable1.Next
    END;
  FINALLY
  END;
END;

Tabii bu kodu kullanırken yaptığın değişiklikleri kaydetmeden çıkabileceğin bi ver tabanı lazım oksa her çalıştırmanda mail adresinin sonuna ; atar bu da garip şeylere yol açar.

Firebird ya da ib de rollback bu işi yapıyor...

İyi geceler
Kolay gelsin