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
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
Comment