Открытие и сохранения файла в StringGrid'е

[Weyner]

Здравствуйте вот у мя такой вопрос!, как открыть файл в стрингрид, т.е. вот например я создал таблицу и мне надо её сохранить ооооо и также как можно сохранить! зарание спс!))

[mihali4]

Сохранить (загрузить) TStringGrid в (из) файл(а)

procedure SaveGrid(Grid:TStringGrid;FileName:string);
var
f: textfile;
x, y: integer;
begin
assignfile(f,Filename);
rewrite(f);
writeln(f, grid.colcount);
writeln(f, grid.rowcount);
for X := 0 to grid.colcount - 1 do
for y := 0 to grid.rowcount - 1 do
writeln(F, grid.cells[x, y]);
closefile(f);
end;

Загрузка - аналогично. Я думаю, справитесь самостоятельно. Ведь надо же иногда подключать "моск" ?

[W0LF]

Мой способ:

procedure SaveStringGrid(StringGrid: TStringGrid; FileName: string);
var
  T: TStringList;
  Row, Col: integer;
begin
  T := TStringList.Create;
  T.Add(IntToStr(StringGrid.RowCount));
  T.Add(IntToStr(StringGrid.ColCount));
  for Row := 0 to StringGrid.RowCount - 1 do
    for Col := 0 to StringGrid.ColCount - 1 do
      T.Add(StringGrid.Cells[Col, Row]);
  T.SaveToFile(Filename);
  T.Free;
end;

procedure LoadStringGrid(StringGrid: TStringGrid; FileName: string);
var
  T: TStringList;
  Row, Col, Count: integer;
begin
  T := TStringList.Create;
  T.LoadFromFile(FileName);
  StringGrid.RowCount := StrToIntDef(T.Strings[0], 1);
  StringGrid.ColCount := StrToIntDef(T.Strings[1], 1);
  T.Delete(0);
  Count := 0;
  for Row := 0 to StringGrid.RowCount - 1 do
    for Col := 0 to StringGrid.ColCount - 1 do begin
      Count := Count + 1;
      if T.Strings[Count] <> '' then
        StringGrid.Cells[Col, Row] := T.Strings[Count] else
        StringGrid.Cells[Col, Row] := '';
    end;
  T.Free;
end;

[Weyner]

А как мне это сделать в MainMenu открыть и сохранить как .. !?!?

[mihali4]

Внизу каждой страницы нашего форума есть ссылка на наш "Клуб программистов Delphi".
Там есть все, что вам нужно.
Попытайтесь почитать хотя бы одну книгу для начинающих, а уж тогда при непонятках задавайте вопросы.
Здесь форум, а не ликбез !

Закрываю.