need help

[PATeXg]

Kann mir jemand sagen wo der fehler ist ????



unit unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Efeld: TEdit;
Button: TButton;
ABox: TListBox;
Button1: TButton;
AUFHDD: TButton;
VONHDD: TButton;
Kontrollfeld: TEdit;
procedure ButtonClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure AUFHDDClick(Sender: TObject);
procedure VONHDDClick(Sender: TObject);
private
{ Private declarations }

Namensliste: Array [0..20] OF String;
Zaehler : Integer;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);


begin
If Zaehler<20 Then Begin
Namensliste [Zaehler] := EFeld.Text;
Inc (Zaehler);
End;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Index : integer;
begin
Abox.Items.Clear;
Index:=0;
repeat
Abox.Items.Add(Namensliste[Index]);
Inc (Index);
until Index > 20;
ABox.Update;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Zaehler := 0
end;

procedure TForm1.AUFHDDClick(Sender: TObject);
var Index: Integer;
begin
Abox.Items.SaveToFile('E:\Namen.txt');
end;

procedure TForm1.VONHDDClick(Sender: TObject);
var Index : Integer;
begin
Abox.Items.LoadFromFile('E:\Namen.txt');
Index := 0;
Repeat
Namensliste[Index]:= Abox.Items[Index];
Inc(Index);
Until (index>Maximum);
end;

end.

 

[EatNoFish]

als titel schreibst du "need help" statt was aussagekräftiges, dann kopierst du einfach ein x-beliebiges stück code hier rein, schilderst nicht mal die nötigsten umstände (was funktioniert nicht, welchen sinn haben die paar zeilen, etc.) und erwartest hilfe?

man sollte ein sticky topic machen mit einer kurzanleitung, wie man nach hilfe frägt. oder zumindest einen link auf eine solche "anleitung für's fragestellen" müsste da sein.

close & ban

 

[BlackArchon]

Probiers nochmal mit dem Erstellen eines Threads.