ObjectList

[Willie1]

Hallo Freunde*innen,
das wollte ich eigentlich fragen, als das Problem mit den 2 Fenstern dazwischen kam.
Ich will den Umgang mit TObjectList lernen und habe ein Telefonbuch entwickelt. Nicht gerade originell aber das ist mir egal. Ich habe alles gelernt, Anlegen, Daten anhängen, einfügen löschen, sortieren, speichern und öffnen.. Nur eines kann ich noch nicht richtig einen Eintrag korrigieren. Ich habe diesen Weg gewählt aber das geht doch sicher einfacher.

Delphi-Quellcode:

type
   TTel = record
     Name: string;
     VName: string;
     Nr: string;
     Mobil: string;
     G: Integer;
   end;

   TTelAdress = class(TObject)
     private
     Tel: TTel;
     public
     constructor Create;
     destructor Destroy; override;
   end;

   TTelList = class(TObjectList)
     function AddTel(Tel: TTel): Integer;
     procedure SetTel(Index: Integer; Tel: TTel);
     function GetTel(Index: Integer): TTel;
   end;
...
procedure TTellist.SetTel(Index: Integer; Tel: TTel);
var
  TelA: TTelAdress;
begin
  TelA:=TTelAdress.Create;
  TelA.Tel:=Tel;
  self.Delete(Index);
  self.Insert(Index,TelA);
end;

Willie.