Hallo,
kleines Problem:
Ich habe 2 Formulare, das eine ist das eigentliche Programm, das andere ein Fenster welches sich vor dem eigentlichen Programm öffnet.
Zuerst wird das geöffnet wo 2 Werte eingetragen werden, das andere ist auf visible:=false gestellt.
Nachdem die Werte in 2 edit felder eingetragen wurden, werden diese in 2 Variablen vom typ integer abgespeichert. Diese 2 Variablen sollen nach möglichkeit jeweils eine konstante (const) darstellen, welche ich brauche um im Formular 1, 2 Arrays zu deklarieren.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Visible:=true;
P:=strtoint(AnzahlParteien.Text);
S:=strtoint(AnzahlParteien.Text);
Form2.visible:=false;
end;
type
TPartei = record
name:string;
stimmen:integer;
sitze:integer;
end;
TWahl = record
anzahl:integer;
Partei:Array[1..mxp]of TPartei;
end;
TQuotient=record
name:string;
q:integer;
end;
TAuszaelung=Array[1..20]of Tquotient; |
Vlt. habt ihr ja ne Idee, danke schonmal.
ruhrpott-desire