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.