Wie arbeite ich mit "Klassen"-Listen

[EccoBravo]

Wie mache ich das in meinem Falle?

Für TObjectList brauche ich

Uses Contnrs ... Wenn ich in meinem Code:

Delphi-Quellcode:

unit EB_Pat_Foto_Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    IniFiles, 
    Dialogs, StdCtrls, ExtCtrls, FileCtrl, ShellAPI, 
    SDL_ColSel, SDL_Thumbnails, ComCtrls, ShellCtrls, Contnrs; 

type 
    ... 

    TSatz = class(TObject) 
        Bild: TImage; 
        BildName: string; 
        BildNurName: string; 
        BildNurPath: string; 
        BildNurExt: string; 
        FileName: string; 
        FileNurName: string; 
        FileNurPath: string; 
        FileNurExt: string; 

        Datum: string; 
        Notiz: string; 
        Checked: boolean; 
    private 
        Fgeb: string; 
        FPatName: string; 
        FID: string; 
        FInhalt: string; 
        function GetID: string; 
        function GetPatName: string; 
        function GetGeb: string; 
        function GetInhalt: string; 
        procedure Setgeb(const Value: string); 
        procedure SetID(const Value: string); 
        procedure SetPatName(const Value: string); 
        procedure SetInhalt(const Value: string); 
    public 
        property PatName: string read GetPatName write SetPatName; 
        property geb: string read Getgeb write Setgeb; 
        property ID: string read GetID write SetID; 
        property Inhalt: string read GetInhalt write SetInhalt; 
    end; 

var 
    ... 

    Satz: TSatz;                    // hier beginnen meine
    SatzListe: TObjectList;         // Unsicherheiten      
    ... 


implementation 

uses ... ; 

{$R *.dfm} 
//.............................................................................. 

procedure TForm1.FormCreate(Sender: TObject); 
var 
    i: integer; 
    Fehler: Word; 
    DatumStr: string; 

begin 

    ... 
    SatzListe := TObject.Create;      // hier bin ich  
    for i := 0 to maxSatzZahl do      // ebenfalls unsicher 
        SatzListe.Add(TAstz.Create);  // ... 
    ... 

end; 

... 
...

procedure TForm1.E_geborenExit(Sender:TObject);
begin
    Satz[1].geb := E_geboren.Text;    // hier meckert der Compiler E2149 !!!!
end;                                  // schon beim compilieren 

...
...

end.

Jetzt könnt Ihr Euch sicherlich vorstellen, wie wenig Ahnung ich von TObjectList habe.

Ich will im Programm über einen IndexInteger auf einzelne Datensätze der Liste zugreifen.

Delphi-Quellcode:

Satz[i] := ...;

... := Satz[j];

Ja, Unwissenheit schützt vor Dummheit nicht,

Vielleicht Könnt Ihr mir da weiterhin helfen

Danke, Grüße ...

E. B.