Quellcode mal bitte angucken

[Luckie]

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