Quellcode mal bitte angucken

[Sharky]

Zitat von Luckie:

... was ihr von dem Code haltet, ...

Hai Luckie,
noch zwei Anmerkungen
a)
Warum stellst Du die Verbindung zu mySQL-Server im OnPaint deiner Form her? Wäre es nicht besser das einmalig im OnCreate zu machen.

b)
Du verwendest eine Spalte deiner StringGrid zum "speichern" der ID jeder Adresse. Ich habe mir angewöhnt dafür die Eigenschaft Obejects zu missbrauchen. Diese hast Du dann nämlich auch bei TListBoxen TListViews und allem was ein TStrings Property hat.
Im OnSelectCell deines StringGrids müsstest Du das so änder:

Delphi-Quellcode:

  ID := Integer(StringGrid1.Objects[0,ARow]);
//  ID := StrToIntDef(StringGrid1.Cells[0, ARow], 0);

und in deinem FillStringGrid noch das:

Delphi-Quellcode:

    StringGrid1.Objects[0,i+1] := TObject (Kontakte[i].ID);
//    StringGrid1.Cells[0, i + 1] := IntToStr(Kontakte[i].ID);