Daten aus einer Datenbank auslesen

[Alexander Brodbeck]

Hi,

ich möchte Daten aus einer Datenbank auslesen und in ein Memofeld importieren.

Mein Problem ist das Format im Memofeld. Es sieht so aus:

"
Vorname
";"
Nachname
..

void __fastcall TForm1::Einlesen1Click(TObject *Sender)
{

Memo1->Clear();
Query1->Open();
while (!Query1->Eof)
{
Memo1->Lines->Add ("\"");
Memo1->Lines->Add(Query1->FieldByName("Vorname")->AsString);
Memo1->Lines->Add ("\";\"");
Memo1->Lines->Add(Query1->FieldByName("Nachname")->AsString);

Query1->Next();
}
Query1->Close();
}

Die Ausgabe im Memofeld soll wie folgt aussehen.
"Vorname";"Nachname";...

Kann mir jemand sagen wie der Quellcode für diese Ausgabe aussieht.

Ciao

Alex

[SchickJ]

Hallo,

das könnte so gehen:
Memo1->Lines->Add ("\"" + Query1->FieldByName("Vorname")->AsString +
"\";\"" + Query1->FieldByName("Nachname")->AsString + "\"");

Gruß Jürgen

[Fred Nest]

char c = '\';
char c1 = ';';
AnsiString vn;
AnsiString nn;
AnsString s;

while( .... )
{
try
{
vn = Query1->FieldByName("Vorname")->AsString;
nn = Query1->FieldByName("Nachname")->AsString;
s = c + vn + c1 + nn + c;
Memo1->Lines->Add ( s );
}
catch(...)
{
.... irgendwas
}
} // while

gruß Fred

[Christian Marquardt]

Dafür das die Frage knapp 6 Jahre alt ist....