... und ich Volldepp hab die Funktion nach 7 Jahren immer noch nicht selber entdeckt.
Nunja, dankeschön
!
Edit: Das ding ist schon ziemlich genial. Das macht aus dem hier:
Delphi-Quellcode:
TTestListe = class(TObjectList)
private
public
procedure Machwas(s: String; i: Integer);
function HastDuWasGemacht: Boolean;
property Items[ndx: Integer]: TTest;
property Irgendwas: String;
property NurLesen: string read GetNurLesen;
property LesenUndSchreiben: string read GetNurLesen write FNurLesen;
constructor Create(s: String); override;
end;
Das hier:
Delphi-Quellcode:
TTestListe = class(TObjectList)
private
FNurLesen: string;
FIrgendwas: String;
function GetItems(ndx: Integer): TTest;
function GetNurLesen: string;
procedure SetIrgendwas(const Value: String);
procedure SetItems(ndx: Integer; const Value: TTest);
public
procedure Machwas(s: String; i: Integer);
function HastDuWasGemacht: Boolean;
property Items[ndx: Integer]: TTest read GetItems write SetItems;
property Irgendwas: String read FIrgendwas write SetIrgendwas;
property NurLesen: string read GetNurLesen;
property LesenUndSchreiben: string read GetNurLesen write FNurLesen;
constructor Create(s: String); override;
end;
implementation
{ TTestListe }
constructor TTestListe.Create(s: String);
begin
inherited;
end;
function TTestListe.GetItems(ndx: Integer): TTest;
begin
end;
function TTestListe.GetNurLesen: string;
begin
Result := FNurLesen;
end;
function TTestListe.HastDuWasGemacht: Boolean;
begin
end;
procedure TTestListe.Machwas(s: String; i: Integer);
begin
end;
procedure TTestListe.SetIrgendwas(const Value: String);
begin
FIrgendwas := Value;
end;
procedure TTestListe.SetItems(ndx: Integer; const Value: TTest);
begin
end;
end.
Na, das nenn ich doch mal feine Arbeitserleichterung. Also nochmals danke
