Hallo zusammen,
ich habe eine grundsätzliche Frage:
Gibt es eigentlich sowas wie zweispaltige Tstringlisten (zwei Spalten, n-Einträge). Gleichzeitig wäre quasi der Funktionsumfang von TStringlist cool.
TSTringlist.Item[i].spalte1
TSTringlist.Item[i].spalte2
TSTringlist.add(i)
TSTringlist.delete(i)
Prinzipiell könnte ich es wie in meinem letzten Posting machen (s.u.). Gibt es noch eine einfacher (komfortabler)
Lösung.
Danke!
Delphi-Quellcode:
type TClDiS = class (Tcomponent)
private
...
FDocumentlist:TObjectList;
function Get(Index: Integer): TDocument;
procedure Put(Index: Integer; const Value: TDocument);
Published
...
function add(item: TWebbrowser):integer;
function Count: Integer;
public
property Document[Index: Integer]: TDocument read Get write Put;
...
function TCldis.Count: Integer;
begin
result:=FDocumentList.Count;
end;
function TCldis.Get(Index: Integer): TDocument;
begin
result:=TDocument(FDocumentList[Index]);
end;
procedure TCldis.Put(Index: Integer; const Value: TDocument);
begin
FDocumentList[Index]:=Value;
end;