Mal ne kleine Einleitung zu meiner Geschichte(hoffe sie passt hier rein)
Ich bin in der 12ten klasse und leider ein totaler Delphi Analphabet, jeder Schüler unserer klasse muss ein referat vorbereiten. Ich hab das Thema Speichern eines Stringgrids erhalten.
Ich soll den quelltext von Zeile zu Zeile erklären können, dies ist absolut nicht der fall...
Ich weis ich kann von niemanden erwarten das jemand sich die arbeit für mich macht aber (mal ganz erlich
) ihr seid meine Letzte hoffnung.
Es geht um folgenden Quelltext ich weis das es auch andere möglichkeiten gibt ein stringgrid zu speicher aber das ist die vorgabe des lehrers...Ich habe es bereit getestet und es funktioniert!
Delphi-Quellcode:
procedure SaveStringGridToFile(StringGrid: TStringGrid; const FileName: String);
var
F: TStringList;
i: Integer;
begin
F := TStringList.Create;
try
F.Add(IntToStr(StringGrid.RowCount));
F.Add(IntToStr(StringGrid.ColCount));
for i := 0 to (StringGrid.RowCount - 1) do
F.Add(StringGrid.Rows[i].CommaText);
F.SaveToFile(FileName);
finally
F.Free;
end;
end;
procedure LoadStringGridFromFile(StringGrid: TStringGrid; const FileName: String);
var
F: TStringList;
i: Integer;
begin
F := TStringList.Create;
try
F.LoadFromFile(FileName);
StringGrid.RowCount := StrToInt(F[0]);
StringGrid.ColCount := StrToInt(F[1]);
for i := 0 to (StringGrid.RowCount - 1) do
StringGrid.Rows[i].CommaText := F[i + 2];
finally
F.Free;
end;
end;
Ich hoffe ihr könnt mir helfen
[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen - Mfg, SirThornberry[/edit]