Delphi-Quellcode:
type
TNamenArray = Array [0..12] of String;
TForm1 = class(TForm)
MainMenu1: TMainMenu;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
createTeilnehmerleiste: TButton;
sendListe: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
IdHTTP1: TIdHTTP;
IdFTP1: TIdFTP;
Datei1: TMenuItem;
Beenden1: TMenuItem;
TabSheet2: TTabSheet;
WebBrowser1: TWebBrowser;
Timer1: TTimer;
procedure createTeilnehmerleisteClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure sendListeClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
//Eigene Funktionen
procedure generateTextfeld(left : Integer; name: String; width:Integer);
procedure generateTeilnehmerfelder();
procedure generateUeberschriften();
procedure generateAuswahl(left : Integer; name: String);
procedure generateCombobox(left : Integer; name: String; top:integer; width:integer);
function datensatzRueckgabe(): String;
function setArrays():TNamenArray;
procedure loadCombobox(datname:String;cbox:String);
function changeToID(temp:String): String;
procedure dateiUpload();
procedure Beenden1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure generateButton();
procedure LoeschenClick(Sender: TObject);
procedure loeschenTeilnehmer(tempzahl:String);
procedure verschiebeTeilnehmer(tempzahl:String);
so das ist die Klassendekleration der Form. Ich hoffe, dass ich nun also hab, was du/ihr benötigt.