NonVCL Version von Classes.dcu

[Uncle Cracker]

Gibt es eine NonVCL für die unit Classes, denn brauche TString aus dieser Unit, doch leider wird die Datei von 8,5KB 114KB groß, wenn ich Classes einbinde.

Kann mir vielleicht jemand helfen?


:love: Danke UC

[Luckie]

TString? Ich kenne nur TStrings. Wenn du eine Stringliste brauchst, dass kan man sich einfach mit einem dynamsischen Array of String selber als Klasse nachprogrammieren.

[Uncle Cracker]

:love: Danke, werde das mal probieren.

PS: Ich meinte auch TStrings :roll:

[Luckie]

Auch eine schöne Fingerübung, um sich mal Klassen anzukucken. :zwinker:

[Uncle Cracker]

Ich bekomme das irgendwie nicht hin was zu ADDen :?

Ich wollte diese Funktion nur mal in NonVCL umsezten, doch leider bekomme ich nicht hin irgendwelche Daten in den Array.

Es soll mir jetzt keiner die Funktion in NonVCL machen, denn dann versteh ich es nicht, mir soll nur ein bisschen geholfen werden wie man das macht.


:love: Danke UC

[toms]

Vielleicht hilft dir das:

TStringList replacement by ~LOM~

[Uncle Cracker]

:love: Danke, ganau das habe ich gesucht. Ganz ohne Array ist immer noch besser :roll:


PS: Du musst in deiner Signatur noch was einfügen, denn nur die Countdownzahl sieht irgendwie komisch aus :zwinker:

[Uncle Cracker]

Ich hab' das nochmal probiert, dass auf die Funktion umzustellen, doch irgendwie klappt das nicht :?

Man kann zwar die Datei kompilieren, doch wenn ich die Datei starte kommt ein Anwendungsfehler, gibt es vielleicht noch eine andere Variante?

[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.

[toms]

Zitat:

Man kann zwar die Datei kompilieren, doch wenn ich die Datei starte kommt ein Anwendungsfehler,

Ich habe die Unit ausprobiert und es funktioniert bei mir ohne Probleme.

Zitat:

gibt es vielleicht noch eine andere Variante?

Hey, nicht so schnell aufgeben...Als Programmierer kannst du dir ja mal den Quellcode anschauen...