Eine StringList mit Childs

[marabu]

Hallo Michael,

eigentlich brauchst du eher eine StringList als Child und nicht eine StringList mit Children. Du kannst die StringList mit den Werten einer Zeile als Item einer ObjectList verwalten:

Delphi-Quellcode:

type
  TRecordList = class(TObjectList)
  private
    function GetField(col, row: Integer): String;
    procedure SetField(col, row: Integer; value: String);
  public
    property Field[col, row: integer]: String read GetField write SetField;
  end;

Der Zugriff geschieht dann über einen zweistufigen Index:

Delphi-Quellcode:

procedure TDemoForm.CellEditExecute(Sender: TObject);
var
  s: String;
begin
  with StringGrid do
  begin
    s := RecordList.Field[Col, Row];
    if InputQuery('Edit Cell', Format('Col %d  Row %d', [Col, Row]), s) then
      RecordList.Field[Col, Row] := s;
  end;
end;

Grüße vom marabu