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;