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:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
| procedure ausgabesieger;
var
dateiwert : double;
MyIni: TIniFile;
i,j,p, durchlauf: Integer;
begin
MyIni := TIniFile.create('.\Sieger.ini');
IF (MyIni.ReadString('Allgemein','Anzahl','0')[1] IN['1'..'6']) THEN
begin
durchlauf:=MyINI.ReadInteger('Allgemein','Anzahl',0);
sortieren(durchlauf,Myini);
FOR I := 1 to durchlauf DO
begin
IF MyIni.ReadInteger('Spieler' + InttoStr(i), 'Vorhanden',0) = 1 THEN
Begin
p :=MyIni.ReadInteger('Spieler' + InttoStr(i),'Platz',6);
form6.StringGrid1.Cells[p,0] := MyIni.ReadString('Spieler' + InttoStr(i), 'Name','Spieler' + InttoStr(i));
form6.StringGrid1.Cells[p,1] := MyIni.ReadString('Spieler' + InttoStr(i), 'Wert','0');
form6.StringGrid1.Cells[p,3] := MyIni.ReadString('Spieler' + InttoStr(i), 'Gewonnen','0');
form6.StringGrid1.Cells[p,4] := MyIni.ReadString('Spieler' + InttoStr(i), 'Verloren','0');
form6.StringGrid1.Cells[p,5] := MyIni.ReadString('Spieler' + InttoStr(i), 'AnzahlSpiele','0');
form6.StringGrid1.Cells[p,2] := MyIni.ReadString('Spieler' + InttoStr(i), 'Platz','0');
end;
end;
end
ELSE
Begin
MyINI.WriteInteger('Allgemein','Anzahl',0);
FOR j := 1 to 6 Do
Begin
MyIni.WriteInteger('Spieler' + InttoStr(j),'Vorhanden',0);
MyIni.WriteString('Spieler' + InttoStr(j),'Name','Spieler' + InttoStr(j));
MyIni.WriteString('Spieler' + InttoStr(j),'Wert','0');
MyIni.WriteString('Spieler' + InttoStr(j),'Platz','0');
MyIni.WriteString('Spieler' + InttoStr(j),'Gewonnen','0');
MyIni.WriteString('Spieler' + InttoStr(j),'Verloren','0');
MyIni.WriteString('Spieler' + InttoStr(j),'AnzahlSpiele','0');
end;
end;
end; |
