Memo aus Tabelle auslesen (ADOQuery)

[plumper]

Huhu,

da bin ich wieder. Jetzt möchte ich, ohne Dabei eine Komponente des Datensteuerungsregisters zu nutzen, ein Memofeld meiner Tabelle auslesen. Das ist dazu notwendig, dass ich aus unterschiedlichen Inhalten meiner Memofelder eine Stringlist zusammensetzen möchte.
so in der Art:

Code:

ADOQuery.SQL.add(<select memofeld from tabelle>);
ADOQuery.open;

So, wie kann ich jetzt auf die geholten Daten zugreifen??
FieldByName ist mir ein Begriff, aber wie funktioniert das mit der Datenübergabe an meine StringList? Ich denke da an so etwas:

Code:

 Strings :TStrings;
...
Strings.AddStrings(ADOQuery.FieldByName(<Memofeld>).Value as TStrings);

Bin ich überhaupt auf dem richtigen Weg? Ähäm?!? :oops:

Danke...

Jens

[Bernhard Geyer]

Zitat:

Zitat von plumper

Code:

 Strings :TStrings;
...
Strings.AddStrings(ADOQuery.FieldByName(<Memofeld>).Value as TStrings);

Des wird krachen. Du bekommst einen String zurück, aber kein TStrings!
Machs so:

Delphi-Quellcode:

Strings.Text := ADOQuery.FieldByName(<Memofeld>).Value;

[Sharky]

Hai plumper,

verstehe ich das richtig:
Du hast ein Feld vom Typ TEXT in deiner Tabelle.
Jetzt möchtest Du jede Zeile des Textes als Zeile in eine TStringListe eintragen?

[plumper]

Schön' tach,

nö: ich habe ein Feld vom Typ Memo in meiner Tabelle, und die Inhalte (ist ja nicht nur ein String) die möchte ich in ein Objekt vom Typ TStrings lesen. Bei DBMemo geht das ja auch, nur wie kann ich das ohne DBMemo lösen? Muss ja irgendwie gehen...


Danke für die Mühen..

jens

[Sharky]

Hai jens,

Zitat:

Zitat von plumper

... (ist ja nicht nur ein String)..

Was ausser einem String kann denn noch in einem MEMO-Feld stehen?

Zitat:

...Objekt vom Typ TStrings lesen...

Verste nicht was Du möchtest.

So bekomme ich den Text z.B. in eine TStringListe.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  myStringList : TStringList;
begin
  myStringList := TStringList.Create;
  try
    with Query1 do
    begin
      Close;
      SQL.Text := 'SELECT * FROM tabelle';
      Open;
      First;
      myStringList.Text := FieldByName ('memo').AsString;
    end;
  finally
    myStringList.Free;
  end;
end;

Wenn er in ein Memo soll dann einfach myStringList.Text durch Memo1.Text ersetzen.

[plumper]

Tschuldigung,

werde ich mal Probieren, jetzt habe ich momentan noch einen anderen Fehler eingebaut.

Werde mich melden..

Aber wie immer, saß der Fehler vorm Bildschirm (Peinlich!!)

danke vielmals,
Jens