Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Данные из StringGrid

Автор: RN3QGA 22.11.2005, 12:00

Здравствуйте уважаемые программисты!
Я начинающий- не судите строго.
Вопросик таков.
Как мне сохранить табличку StringGrid со всеми внесенными данными на диск и по надобности считать. Програмка у меня простая, что-то вроде журнала учета, но не хочется привязываться к базе данных. Если можно то небольшой примерчик с кодом.
Заранее благодарен.

Автор: Snowy 22.11.2005, 12:43

Сохранить:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  t: TextFile;
begin
  AssignFile(t,'C:\1.txt');
  Rewrite(t);
  for i:=1 to StringGrid1.RowCount-1 do
    WriteLn(t,StringGrid1.Rows[i].Text);
  CloseFile(t);
end;

Прочитать:

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  t: TextFile;
  s: string;
  i: integer;
begin
  StringGrid1.RowCount:=2;
  AssignFile(t,'c:\1.txt'); Reset(t);
  while not eof(t) do
  begin
    for i:=0 to StringGrid1.ColCount-1 do begin
      ReadLn(t,s);
      StringGrid1.Cells[i,StringGrid1.RowCount-1]:=s;
    end;
    ReadLn(t,s);
    StringGrid1.RowCount:=StringGrid1.RowCount+1;
  end;
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;

Автор: RN3QGA 23.11.2005, 08:00

Большое Вам спасибо!
Пожалую на Вашем форуме все таки к вопросам начинающих относятся с большим вниманием!
Очень благодарен.

Автор: ~FoX~ 23.11.2005, 09:07

А я люблю через АДО делать, вроде как быстрее мне кажеться smile

Код


procedure TSCRemont.Button6Click(Sender: TObject);
var
  s: String;
begin
  OpenDialog1.Execute;
  s:= OpenDialog1.FileName;
  with ADOQuery4 do begin
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + s + ';Extended Properties=Excel 8.0;Persist Security Info=False';
    Active := false;
    SQL.Clear;
    SQL.Add('Select * From [Лист1$]');
    Active := True;
  end;
  FullGridFromXLS; // ======Заполняем грид из Екселя
  ADOQuery4.Active := False;
end;

procedure FullGridFromXLS();// ======Заполняем грид из Екселя
var
  i: integer;
begin
  i:=0;
  with SCRemont do begin
    StringGrid1.RowCount := ADOQuery4.RecordCount;
    with ADOQuery4 do begin
      first;
      while not EOF do begin
        i:=i+1;
        StringGrid1.Cells[1, i] := ADOQuery4.FieldByName('Сервисный центр').AsString;
        StringGrid1.Cells[2, i] := ADOQuery4.FieldByName('Отчет №').AsString;
        StringGrid1.Cells[3, i] := ADOQuery4.FieldByName('Дата отчета').AsString;
        StringGrid1.Cells[4, i] := ADOQuery4.FieldByName('С/номер').AsString;
        StringGrid1.Cells[5, i] := ADOQuery4.FieldByName('Модель').AsString;
        StringGrid1.Cells[6, i] := ADOQuery4.FieldByName('Установленный дефект').AsString;
        StringGrid1.Cells[7, i] := ADOQuery4.FieldByName('Замена детали').AsString;
        StringGrid1.Cells[8, i] := ADOQuery4.FieldByName('Примечание').AsString;
        StringGrid1.Cells[9, i] := ADOQuery4.FieldByName('Дата').AsString;
        StringGrid1.Cells[10, i] := ADOQuery4.FieldByName('Время').AsString;
        StringGrid1.Cells[11, i] := ADOQuery4.FieldByName('Цена детали').AsString;
        StringGrid1.Cells[12, i] := ADOQuery4.FieldByName('Сумма ремонта').AsString;
        next;
      end;//while
    end; //with ADO
  end;  // with Form
end;

Автор: Des666 27.11.2006, 15:08

А как сохранять/загружать StringGrid с 2 столбцами? В тхт фаил...

Автор: Snowy 27.11.2006, 15:11

Абсолютно также.
Решение универсальное.

Автор: Des666 28.11.2006, 06:48

Snowy,
А почему всего один раз при запуске программы можно сохранить?После того как сохраниш снова загрузиш что нибудь исправиш он после этого выдаёт ошибку: I/O error32
Останавливается на Rewrite(t); в сохранить...

Автор: Guedda 28.11.2006, 09:01

Потому что в этом коде:

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  t: TextFile;
  s: string;
  i: integer;
begin
  StringGrid1.RowCount:=2;
  AssignFile(t,'c:\1.txt'); Reset(t);
  while not eof(t) do
  begin
    for i:=0 to StringGrid1.ColCount-1 do begin
      ReadLn(t,s);
      StringGrid1.Cells[i,StringGrid1.RowCount-1]:=s;
    end;
    ReadLn(t,s);
    StringGrid1.RowCount:=StringGrid1.RowCount+1;
  end;
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;

не хватает CloseFile(t);
В общем, вот процедура, всё будет нормально работать:

Код


procedure TForm1.Button2Click(Sender: TObject);
var
  t: TextFile;
  s: string;
  i: integer;
begin
  StringGrid1.RowCount:=2;
  AssignFile(t,'c:\1.txt'); Reset(t);
  while not eof(t) do
  begin
    for i:=0 to StringGrid1.ColCount-1 do begin
      ReadLn(t,s);
      StringGrid1.Cells[i,StringGrid1.RowCount-1]:=s;
    end;
    ReadLn(t,s);
    StringGrid1.RowCount:=StringGrid1.RowCount+1;
  end;
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
  CloseFile(t);
end;

Автор: Des666 28.11.2006, 09:19

Сохраняет только
1
йцу - откуда это взялось я вообще непонял
пишу в 1 строчке грида 1 во второй 2
В третьей 3 - 4
А сохраняет что написал выше и что значит eof?
-----------
Нет разобрался но теперь код дублирует мне первую строчку...

Автор: Guedda 28.11.2006, 09:25

Цитата(Des666 @ 28.11.2006, 09:19

)

eof

End of File - конец файла. То место, где файла больше нет smile

Автор: Des666 28.11.2006, 09:27

А почему он мне 1 строку то дублирует?