Hallo
Leider brauche ich wieder eure Hilfe...
Es geht wieder um besagtes StadtLandFluss-Spiel;
Also wenn man auf den Button3 klickt, wertet er die Punkte des jeweiligen EditFeldes aus.
Existiert die eingegebene Stadt im Textfile "Stadt.txt", so bekommt man bei 100-120 Sekunden Restzeit 30 Punkte, bei 60-100 Sekunden Restzeit 20 Punkte usw.
Mein Problem ist jetzt aber, dass ich ja im Ordner mehrere Textfiles (Stadt.txt, Land.txt...) anlegen muss, sonst könnte man ja bei Stadt ein Land eingeben, und es würde zählen, da Städte und länder im gleichen Dokument sind.
Das Problem ist jetzt dass ich aber bei den Variablen nur ein Textfile definieren kann, oder?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| var
Liste : textfile;
Suchen : String;
S : Integer;
begin
Assignfile(Liste, 'Stadt.txt');
Reset(Liste);
for S := 0 to 20000 do
begin
ReadLn(Liste,Suchen);
if (Edit1.Text=Suchen) and (StrToInt(Label9.Caption)>=100) then
Edit8.Text:='30';
if (Edit1.Text=Suchen) and (StrToInt(Label9.Caption)>=60) and (StrToInt(Label9.Caption)<100) then
Edit8.Text:='20';
if (Edit1.Text=Suchen) and (StrToInt(Label9.Caption)>=0) and (StrToInt(Label9.Caption)<60) then
Edit8.Text:='10';
end;
end; |
