Wo ist das Problem? Du nimmst dir ein dynamisches Array of String. Jedes mal, wenn du was hinzufügst (Methode Add) verlängerst du das Array um eins und fügst den String dort ein.
Delphi-Quellcode:
type TDynStringArray = array of Strings;
type
TMyTringList = class
private
sl: TDynStringArray;
public
constructor Create;
procedure Add;
end;
constructor TMyStringlist.Create;
begin
...;
end;
procedure TMyStringList.Add(s: String);
var
len: Integer;
begin
len := length(sl);
len := SetLength(sl, len+1);
sl[len] := s;
end;
Nur mal so schnell ins Forum gehackt. Wenn es auch nicht kompiliert, sollte es zu mindest das Prinzip zeigen.