Ich habe eine neue Klasse erstellt, mit deren Hilfe ich Zusatzinformationen
in jede Row des Stringgrid ablegen kann, was auch bestens funktioniert:
Code: Alles auswählen
//-----------------------------------------
//Klasse für die Zusatzinfo Stringgrid
//-----------------------------------------
TAbfrage = class
private
m_Stunden : string;
m_Status : string;
m_Verwendung : string;
public
constructor Create(const sStunden : string; const sStatus : string; const sVerwendung : string) ;
property Stunden : string read m_Stunden;
property Status : string read m_Status;
property Verwendung : string read m_Verwendung;
end;
Code: Alles auswählen
sgAbfrage.Rows[iRowCount].Objects[0] := TObject(TAbfrage.Create(sStunden, sStatus, sVerwendung));
Code: Alles auswählen
oAbfrage : TAbfrage;
oAbfrage := sgAbfrage.Rows[aRow].Objects[0] as TAbfrage;
Beim löschen eines oder aller Rows kann ich sgAbfrage.Rows[iSchleife].Free; verwenden,
aber wie mache ich es beim schliessen der Anwendung? Wer räumt als letzter zusammen?