DBGrid an Memo übergeben

[Privateer3000]

Hiho,

ist es möglich an ein Memo den Inhalt eines DBGrid's zu übergeben??

[xbu58]

Hallo Privateer3000

Soviel ich weiss ist das nicht möglich (bin aber nicht sicher, da ich SuperGrid einsetzte). Wenn Du ADO einsetzst, kannst Du den Inhalt eine TTable oder TQuery-Klasse mit ADOQuery1.SaveToFile ein File schreiben. Mit SaveToStream kannst Du das gleiche in einen MemoryStream schreiben und mit Memo.LoadFromStream wieder laden! Falls nicht könntes Du immer noch mit einer MemoryTable wie z.B. kbmMemTable arbeiten
kbmMemTable.

Gruss
Xaver

[Taladan]

Das DBGrid wird ja mit einen Table verbunden. Ich hab mir diese eigenschaft zu nutze gemacht, um eine ListBox damit zu füllen. Mit einen Memo kenn ich mich nicht aus, aber vielleicht ist es ja ein Hinweiß wie man es machen könnte.

Delphi-Quellcode:

procedure TForm6.ListboxFuellen(Sender : TObject);
var name : string;
    x : integer;
    hiddendata : THidden;
begin
     x:= 0;
     hauptform.table1.first;
     listbox1.clear;
     while not (hauptform.table1.eof) do
     begin
       hiddendata := Thidden.create;
       hiddendata.id := hauptform.table1zhler.value;
       name := hauptform.table1Name.value + ', ' + hauptform.table1Vorname.value ;
       listbox1.items.InsertObject(x, name, hiddendata);
       inc(x);
       hauptform.table1.Next;
     end;

[Privateer3000]

Danke für Eure Antworten.
Irgendwie komme ich da nicht weiter, weil ich garnicht weiss was da genau passiert.
Kann man nicht auch aus einem DBGrid an en Stream übergeben?

[Privateer3000]

bis dato hab ich es nicht hinbekommen,
den Inhalt eines Grids an ein Stream zu übergeben.
Ist jemand so nett und hilft mir?

[Helld_River]

Hi !
Ich weiss jetzt nicht, ob ich dich richtig verstanden habe:
Du möchtest einfach die Felder, welche Du in eine DBGrid angezeigt bekommst der REihe nach in ein Memo schreiben, richtig ?

Also:
Ich habe mal
- ein Memo
- eine Table
- eine DataSource
- ein DBGrid
auf meinem Formular.

Alles miteinander verknüpft !(denke, da brauche ich jetzt nicht näher darauf einzugehen, oder?)

Hier der Code zum schreiben der Daten aus dem DBGrid in das Memo:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x : integer;
    str : string;
begin
  Table1.First;
  while not(Table1.eof) do
  begin
    str:='';
    for x := 0 to DBGrid1.FieldCount-1 do
    begin
      str:=str+DBGrid1.Fields[x].AsString+';';
    end;
    Memo1.Lines.Add(str);
    Table1.Next;
  end;
end;

Hoffe, das hilft dir weiter !

Gruß, Helld