Aufgabe:
Programm soll den Durchschnitt berechnen
Erklärung:
n=wie viele txt es gibt
m=wie txt heißt (1. txt = '1.txt' usw.)
k=Variable zum zählen
Wenn ich den Button klicke kommt immer der Fehler: project hat "Exception-Klasse>RunError(103)<ausgelöst in Zeile 86: e0:=StrToInt(Wert[9])+e0;
Code: Alles auswählen
procedure TForm12.Button1Click(Sender: TObject);
var
Werte: TStringArray;
Ant: TextFile;
Zeile: String;
n, i, k, e1, e2, e3, e4, e5, e6, e7, e8, e9, e0: Byte;
m: AnsiString;
begin
n:=StrToInt(Edit1.Text);
m:='0';
k:=StrToInt('0');
i:=StrToInt('0');
e1:=StrToInt('0');
e2:=StrToInt('0');
e3:=StrToInt('0');
e4:=StrToInt('0');
e5:=StrToInt('0');
e6:=StrToInt('0');
e7:=StrToInt('0');
e8:=StrToInt('0');
e9:=StrToInt('0');
e0:=StrToInt('0');
repeat
i:=i+1;
k:=k+1;
m:='+k+';
//try
AssignFile(Ant, 'C:\Users\R3dFox\Desktop\umfrage\data\'+m+'.txt');
//Reset(Ant);
while not EOF(Ant) do
begin
Readln(Ant, Zeile);
Werte:= Zeile.Split(';');
e1:=StrToInt(Werte[0])+e1;
e2:=StrToInt(Werte[1])+e2;
e3:=StrToInt(Werte[2])+e3;
e4:=StrToInt(Werte[3])+e4;
e5:=StrToInt(Werte[4])+e5;
e6:=StrToInt(Werte[5])+e6;
e7:=StrToInt(Werte[6])+e7;
e8:=StrToInt(Werte[7])+e8;
e9:=StrToInt(Werte[8])+e9;
e0:=StrToInt(Werte[9])+e0;
end;
//finally
// CloseFile(Ant);
//end;
until i=n;
Label1.Caption:=FloatToStrF(e1/n, ffnumber, 8, 1);
Label2.Caption:=FloatToStrF(e2/n, ffnumber, 8, 1);
Label3.Caption:=FloatToStrF(e3/n, ffnumber, 8, 1);
Label4.Caption:=FloatToStrF(e4/n, ffnumber, 8, 1);
Label5.Caption:=FloatToStrF(e5/n, ffnumber, 8, 1);
Label6.Caption:=FloatToStrF(e6/n, ffnumber, 8, 1);
Label7.Caption:=FloatToStrF(e7/n, ffnumber, 8, 1);
Label8.Caption:=FloatToStrF(e8/n, ffnumber, 8, 1);
Label9.Caption:=FloatToStrF(e9/n, ffnumber, 8, 1);
Label10.Caption:=FloatToStrF(e0/n, ffnumber, 8, 1);
end;
end.