NonVCL Version von Classes.dcu

[Luckie]

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.