mehrere Strings laden

[Bruce86]

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!!!

[Bruce86]

Ich danke euch dafür dass ihr mir noch versucht habt zu helfen! vielen dank!!!! habe eben nochmal bei delphiforum geschaut und habe eine lösung erhalten die ich ein wenig abgeändert habe und nun klappt es!
Vielen Dank seit echt spitze!!!!!!!!!!