Zitat von
Sharky:
Warum stellst Du die Verbindung zu
mySQL-Server im OnPaint deiner Form her? Wäre es nicht besser das einmalig im OnCreate zu machen.
Weil es cooler aussieht, wenn die Form schon sichtbar ist und dann erst das StringGrid gefüllt wird. Nein, ich wollte zum Debuggen de Meldungen im Memo sehen. Und außerdem wird die Verbindung ja auch nur einmal hergestellt.
Zitat:
Du verwendest eine Spalte deiner StringGrid zum "speichern" der ID jeder Adresse.
Nun ja. Das muss ich sowie so noch mal umbauen und alles dynamisch machen. Sprich die Anzahl der Spalten usw. und dabei werden wohl alle Felder der
DB zu varchar Feldern werden. Ich dachte mir dann sowas:
Delphi-Quellcode:
type
TKonatkte = array of String;
TCols = array of String;
GetKontakte(var Kontakte: TKonatkte; var Cols: TCols);
FillStringGrid(SG: TStringGrid, Kontakte: TKontakte, Cols: TCols);
begin
SG.Cols := length(Ciols);
for i := 0 to length(Cols) - 1 do
begin
SG.Cells[0, i] := Cols[i];
end;
SG.Rows := length(Kontakte);
for i := 0 to length(Kontakte) - 1 do
begin
....;
....;
end;
end;
Dann kann man das für jede beliebige Datenbank einsetzten.
Denn wenn ich jetzt so was mache:
SELECT name, vorname FROM kontakte
dann stürzt mit alles ab. Da muss ich noch eine universelle Lösung finden