memo dan Dbgride aktarım

[Armani]

merhabalar
memo dan dbgrid e button yardımı ile aktarabilme şansım varmı ?
(Dbgrid de Telefon adında field var)

teşekkürler

[fahrettin]

memoyu satir satir okuyup dbgrid'in dataset'ine insert edebilirsiniz.....

takıldığınız nokta nedir?

[Armani]

Adotable,table...... gibi objeler kullanmadan aktarmak istedim.
kodum şu şekilde

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
VAR
aktar : integer;
begin
For aktar :=0 to memo1.Lines.Count -1 do
if memo1.SelectAll[aktar] then
begin
.....
Bu kısımdan sonrasını yazamadım.

bu kod ile şimdilik sadece dbgride aktarma şansım olup olmadıgını denedim. daha sonradan field kısmına yazdırmayı düşünmüştüm

[husonet]

Armani Demişki

Adotable,table...... gibi objeler kullanmadan aktarmak istedim.

Dostum ne farkı var işin kolayı varken zorunu seçmenin anlamı ne? Yanıtınızı Fahrettin Abi vermiş.

şayet DataSet kullanmamak konusunda ısrarlıysanız DBGrid'in Columns özelliğinden yararlanacaksınız.

Kod: Tümünü seç

    DBGrid1.Columns[0].Field.Text := '00';

Kolay Gelsin...

[Armani]

Günaydın
aşağıdaki kodu listbox1(L1) için yazdım. Fakat memo1 için nasıl yazılır. Birçok denemelerim oldu ama başaramadım
Yardımcı olursanız sevinirim.

Teşekkürler
L1 : Listbox1
M1 : Memdata

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var g: longint;
begin
m1.Active:=true;
for g:=0 to l1.Items.Count-1 do
  begin
   if m1.Locate('bilgi',copy(l1.Items[g],1,5),[loCaseInsensitive]) then
      begin
        m1.Edit;
        m1sayac.Value:=m1sayac.AsVariant+1;
        m1.Post;
      end
       else
      begin
       m1.Append;
       m1bilgi.Value:=copy(l1.Items[g],1,5);
       m1sayac.Value:='1';
       m1.Post;
      end;
  end;
end;

[fahrettin]

DBGrid, string grid gibi uzerinde string degerleri tutar mı bilmiyorum. Zira mesela bagli oldugu dataset kapalı iken disable oldugunu dusununce sanki dataset olmadan kullanılamaz gibime geliyor ama emin degilim...

[idalan]

ben şöyle bir şey düşündüm uygun olurmu bilmem
bir table ekle daha sonra
memo nun içindeki bilgileri istediğin şekilde table a at gridini de bu table a
bağladığında gridde görürsün tabi farklı şekillerde çözülebilir başarılar