Hallo Robert_G,
Vielen Dank für Deine Hilfe.
Die letzten zwei Abende habe ich versucht Deinen Tipp umzusetzten.
Es haut leider nicht hin.
Anbei den Code, mit dem ich die Zeilen und Spalten schreibe:
Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
var a,b,c,d,i,g : Integer;
verz :
String;
begin
{ ConfigDB öffnen }
{aktuelles Verzeichnis auslesen }
verz := ExtractFilePath(ParamStr(0));
try
ConfigTable.DatabaseName := verz + '
DB\';
ConfigTable.TableName := '
Config.DB';
ConfigTable.Active := true;
except
MessageBeep(0);
showmessage('
Es ist ein Fehler beim öffnen der ConfigDB aufgetreten !');
end;
{ auslesen der ConfigDB - Anzahl der Spieler }
{ Startwert Spieler = immer 1}
a := 1;
{ Endwert Spieler aus ConfigDB }
b := ConfigTableSpieler_bis.AsInteger;
{ auslesen der ConfigDB - Rundenbelegung }
{ Startwert Runden = immer 1 }
c := 1;
{ Endwert Runden aus ConfigDB }
d := ConfigTableRunden_bis.AsInteger;
{StringGrid mit Werten füllen }
with StringGrid1
do
begin
{ Spaltenbreite vergrößern }
ColWidths[0] := 100;
{ Spieler füllen }
{ Zeilen setzen }
RowCount := (b+2);
for i := a
to b
do Cells[0,i] := '
Spieler ' + IntToStr(i);
{ Runden füllen }
g := ((d - c)+1);
{ Spalten setzen }
ColCount := (g+1);
for i := 1
to g
do Cells[i,0] := '
Runde ' + IntToStr((c-1)+i);
end;
end;
In der Config-Tabelle steht nur ein Datensatz. Dort stehen die max. Werte für die Runden
und für die Spieler.
In der zweiten Tabelle stehen die Daten dazu, die Spielernummer, Runde und Anzahl der Schläge.
Die Anzahl der Schläge soll jetzt in das dazugehörige Feld im Grid gebracht werden, damit es dann
so ausschaut:
Runde1 ... Runde x
Spieler 1 35 56
Spieler x 70 89
Und das bekomme ich nicht hin.
Viele Grüße
Uwe