TStringlist Quellcode verändern

[SneakyBagels]

Zitat:

Das Problem ist wohl eher, dass die System Units nicht mehr neu kompiliert werden.

An den System-Units würde ich gar nicht erst rumfummeln.

Zitat:

würde ich gerne die TStringlist so anpassen das sie beim Create eine ID gesetzt bekommt

Ich würde das einfach so machen...

Delphi-Quellcode:

// Das hier alles kommt ins eigene Projekt - nicht in die System-Units
type
 TStringList = class(System.Classes.TStringList)
 public
  ID: Integer; // <= ID erweitern
  constructor Create; overload;
 end;

// Konstruktor
constructor TStringList.Create;
begin
 ID := Random(1234567890) + 1; // ID setzen (nach Möglichkeit irgendeinen besseren Algorithmus)
 inherited Create;
end;


// Test
procedure TForm2.Button9Click(Sender: TObject);
var
 sl1, sl2: TStringList;
begin
 sl1 := TStringList.Create;
 sl2 := TStringList.Create;

 ShowMessage('SL1-ID: ' + IntToStr(sl1.ID));
 ShowMessage('SL2-ID: ' + IntToStr(sl2.ID));

 sl1.Free;
 sl2.Free;
end;

[Aviator]

Zitat von SneakyBagels:

Zitat:

würde ich gerne die TStringlist so anpassen das sie beim Create eine ID gesetzt bekommt

Ich würde das einfach so machen...

Hätte ich auch fast vogeschlagen. Aber dann müsste er sich eine neue Unit machen und die überall einbinden. Könnte bei 350 Units etwas Arbeit bedeuten.

@TE: Erzeuge mal das Projekt neu. Nicht nur kompilieren. Der Schalter ist zumindest der den ich meinte.

[SneakyBagels]

Zitat:

Könnte bei 350 Units etwas Arbeit bedeuten.

Bei einem 350-Units-Projekt sollte nach Möglichkeit irgendeine Unit vorhanden sein, wo man solchen kram reinschreibt

Zitat:

Wenn ich die alle durch meine austauschen soll werde ich diesen Monat nicht mehr fertig.

Was meint du mit austauschen? Hier müsstest du nichts austauschen sondern einfach nur den Kontruktor überschreiben. Der Typ der Stringliste bleibt gleich.

[DevLinus]

Zitat von SneakyBagels:

Zitat:

Könnte bei 350 Units etwas Arbeit bedeuten.

Bei einem 350-Units-Projekt sollte nach Möglichkeit irgendeine Unit vorhanden sein, wo man solchen kram reinschreibt

Zitat:

Wenn ich die alle durch meine austauschen soll werde ich diesen Monat nicht mehr fertig.

Was meint du mit austauschen? Hier müsstest du nichts austauschen sondern einfach nur den Kontruktor überschreiben. Der Typ der Stringliste bleibt gleich.

Naja ich muss meinen Programm ja sagen das er die TStringlist verwenden soll und nicht die Standard. Das heißt bei allen Units die Uses hinzufügen/austauschen.

[SneakyBagels]

Zitat:

Naja ich muss meinen Programm ja sagen das er die TStringlist verwenden soll und nicht die Standard. Das heißt bei allen Units die Uses hinzufügen/austauschen.

Deswegen ist es ja eine Cracker-Liste. Da muss man nix am Datentyp ändern. Man benutzt wie gewohnt TStringList (oder was auch immer du halt benutzt).

[haentschman]

Nochmal... (weil es in den anderen Beiträgen untergeht )
Ohne Quelltext Änderungen und ohne extra Units: MadExcept. :

Wenn er das auch nicht auflösen kann, hast genug Beispiele für die ID in der Klasse.

[p80286]

Zitat von haentschman:

Nochmal... (weil es in den anderen Beiträgen untergeht )
Ohne Quelltext Änderungen und ohne extra Units: MadExcept. :

Wenn er das auch nicht auflösen kann, hast genug Beispiele für die ID in der Klasse.

Suchen wo es klemmt ohne jedweden kreativen Lösungsansatz, wie langweilig......


Gruß
k-H

[haentschman]

Moin...

Zitat:

Suchen wo es klemmt ohne jedweden kreativen Lösungsansatz, wie langweilig......

Ich kann leider nicht erkennen ob das ironisch gemeint war...

[freimatz]

Zitat von SneakyBagels:

Zitat:

Könnte bei 350 Units etwas Arbeit bedeuten.

Bei einem 350-Units-Projekt sollte nach Möglichkeit irgendeine Unit vorhanden sein, wo man solchen kram reinschreibt

Zitat:

Wenn ich die alle durch meine austauschen soll werde ich diesen Monat nicht mehr fertig.

Dann schreib doch ein Programm das das erledigt

Und noch ein Aspekt, wenn auch zu spät: nicht TStringlist verwenden. Die TStringlist verwende man nur wenn man eine Liste von Strings benötigt. Das ist meist nicht der Fall. 1. Oft wird diese missbraucht und man stopft alles mögliche da rein. Besser TList<> o.ä. Dann wird oft 2. ein string für alles möglich verwendet was besser ein TName, TDatei, TId, etc. sein sollte. Und dann siehe 1.
Siehe auch https://de.wikipedia.org/wiki/Law_of_the_Instrument

[DevLinus]

Zitat von SneakyBagels:

Zitat:

Das Problem ist wohl eher, dass die System Units nicht mehr neu kompiliert werden.

An den System-Units würde ich gar nicht erst rumfummeln.

Zitat:

würde ich gerne die TStringlist so anpassen das sie beim Create eine ID gesetzt bekommt

Ich würde das einfach so machen...

Delphi-Quellcode:

// Das hier alles kommt ins eigene Projekt - nicht in die System-Units
type
 TStringList = class(System.Classes.TStringList)
 public
  ID: Integer; // <= ID erweitern
  constructor Create; overload;
 end;

// Konstruktor
constructor TStringList.Create;
begin
 ID := Random(1234567890) + 1; // ID setzen
 inherited Create;
end;


// Test
procedure TForm2.Button9Click(Sender: TObject);
var
 sl1, sl2: TStringList;
begin
 sl1 := TStringList.Create;
 sl2 := TStringList.Create;

 ShowMessage('SL1-ID: ' + IntToStr(sl1.ID));
 ShowMessage('SL2-ID: ' + IntToStr(sl2.ID));

 sl1.Free;
 sl2.Free;
end;

Prinzipiell stimme ich dir vollkommen zu. Das Problem ist in dem Projekt werden fast 3 Millionen Zeilen Code mit ein Compiliert und Tausende Stringlisten verwendet. Wenn ich die alle durch meine austauschen soll werde ich diesen Monat nicht mehr fertig.