VPF::Как сохранить StringGrid? - Форум программистов

Valet777

Дата 9.5.2007, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 19.4.2007

Репутация: нет
Всего: нет

Граждане, всех с праздником!) smile

Подскажите плз, как сохранить содержимое СтрингГрида в файл а потом загрузить обратно? smile

valentos

Дата 9.5.2007, 17:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 7.12.2006
Где: Belarussia, Gomel

Репутация: нет
Всего: 2

Вот пример!!!!
Только Опиши Сначало мои процедуры

Код


procedure TDesSLAU.load(fs:string);
  var
   i,j:integer;
    begin
      Assign(input,fs);
      reset(input);
      read(n,m);
       for i:=1 to n do
        for j:=1 to m do
          read(a[i,j]);
       for j:=1 to m do
          read(b[j]);

      close(input);
    end;
  procedure TDesSLAU.save(fs:string);
  var
   i,j:integer;
    begin
      Assign(output,fs);
      rewrite(output);
      writeln(n,' ',m);
       for i:=1 to n do
        for j:=1 to m do
          writeln(a[i,j]);
       for j:=1 to m do
          writeln(b[j]);

      close(output);
    end;
// обработчик загрузки
procedure TForm1.ToolButton3Click(Sender: TObject);
var
  i,j:integer;
begin
if opend.Execute then
  begin
    slau.load(opend.FileName);
    coledit.Value:=slau.n;
    rowedit.Value:=slau.m;
    for i:=1 to slau.n do
    for j:=1 to slau.m do
      matur.Cells[j,i]:=floattostr(slau.a[i,j]);

    for j:=1 to slau.m do
      matur.Cells[slau.n+1,j]:=floattostr(slau.b[j]);

  end;

// обработчик сохранения
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
if saved.Execute then
  begin
    slau.save(saved.FileName);

  end;
end;

Это сообщение отредактировал(а) valentos - 9.5.2007, 17:12

--------------------

[code=sql]select name, telephone from Girls where age between 20 and 25 and (.)(.) >= 2 order by IQ desc [/code]

MetalFan

Дата 9.5.2007, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

valentos, жэсть...
вот тут пример был
http://delphiworld.narod.ru/base/save_load_stringgrid.html

--------------------

There are always someone smarter than you...

valentos

Дата 9.5.2007, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 187
Регистрация: 7.12.2006
Где: Belarussia, Gomel

Репутация: нет
Всего: 2

Цитата(MetalFan @ 9.5.2007, 19:06

)

жэсть...вот тут пример был

Просто я как раз делаю лабу с загрузкой и сохранением!

--------------------

[code=sql]select name, telephone from Girls where age between 20 and 25 and (.)(.) >= 2 order by IQ desc [/code]

skyboy

Дата 9.5.2007, 20:25 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260

статья о возможностях класса TPersistent - классе-родителе практически всех контролов, который, среди прочего, реализует сохранение объекта в файл и загрузку его оттуда.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »