Hi habe noch ein kleines problem! habe dies schon bei delphiforum gepostet!!!
DelphiForum
Bitte helft mit!!! ist wirklich wichtig udn dringend!!!
ich muss für die zwei bei
Zitat:
StringGrid2.Rows[i].CommaText := F[i + 2];
ne neue variable festlegen! wie muss diese ausschauen? Wo muss ich sie einbinden?
Delphi-Quellcode:
procedure LoadStringGridFromFile(StringGrid1,Stringgrid2,Stringgrid3,Stringgrid4: TStringGrid; const FileName: String);
var
F: TStringList;
i: Integer;
begin
F := TStringList.Create;
try
F.LoadFromFile(FileName);
StringGrid1.RowCount := StrToInt(F[0]);
StringGrid1.ColCount := StrToInt(F[1]);
for i := 0 to (StringGrid1.RowCount - 1) do
StringGrid1.Rows[i].CommaText := F[i + 2];
StringGrid2.RowCount := StrToInt(F[0]);
StringGrid2.ColCount := StrToInt(F[1]);
for i := 0 to (StringGrid2.RowCount - 1) do
StringGrid2.Rows[i].CommaText := F[i + 16];
StringGrid3.RowCount := StrToInt(F[0]);
for i := 0 to (StringGrid3.RowCount - 1) do
StringGrid3.Rows[i].CommaText := F[i + 30];
StringGrid4.RowCount := StrToInt(F[0]);
for i := 0 to (StringGrid4.RowCount - 1) do
StringGrid4.Rows[i].CommaText := F[i + 44];
finally
F.Free;
end;
end;
Dies ist die derzeitige prozedur für das laden wenn ich elf fächer habe! jedoch kann es auch sein dass einer zehn oder zwölf oder weniger hat! Die anderen werte "16" "30" und "44" habe ich aus der gespeicherten datei abgezählt! da stand vorher auch die zwei! wie kann ich das machen mit der variablen!!!! im scrennnshot seht ich nochmal worum es geht!!! bei weniger fächern bricht er ab weil die gespeicherte datei ja nicht so viel zeilen hat!!!