Запись из стринггрида в файл

@sajokarife · Регистрация: 18.01.2016

Author24 — интернет-сервис помощи студентам

Delphi

var i,j:integer;
b:string;
begin
  b:='';
  if dlgSave1.Execute then
AssignFile(fFile, dlgSave1.FileName);
Append(fFile);
for j:=0 to strngrd1.RowCount-1 do
begin
  for i:=0 to 4 do
   b:=strngrd1.Cells[i,j];
   write(fFile,b);
end;

Твердит, что файл не найдет, какое бы имя при сохранение ты не задал

Добавлено через 1 минуту
fFile имеет тип TextFile

@qwertehok · 26.05.2016, 12:55

вот сохранение

Delphi

procedure SaveTable(Table: TStringGrid);
var List: TStringList;
  i, j: Integer;
begin
  List:=TStringList.Create;
  for i:=0 to Table.RowCount-1 do
  for j:=0 to Table.ColCount-1 do List.Add(Cells[j, i]);
  List.SaveToFile('таблица.txt');
  List.Free;
end;

@sajokarife · 26.05.2016, 13:00 **[ТС]**

qwertehok, как это реализовать через dialogsave?

@qwertehok · 26.05.2016, 13:07

подумай и ответь на вопрос - что делает SaveDialog?

@sajokarife · 26.05.2016, 15:12 **[ТС]**

qwertehok, указывает путь и задает имя?

@qwertehok · 26.05.2016, 15:13

точно
что бы сохранить таблицу нужно УЖЕ знать имя и путь
значит нужно вызвать диалог ДО сохранения

как его вызвать и обработать нужно писать?

@sajokarife · 26.05.2016, 15:38 **[ТС]**

qwertehok, нет, разберусь. Спасибо за помощь

@sajokarife 4 / 4 / 1 Регистрация: 18.01.2016 Сообщений: 163
	26.05.2016, 13:00 [ТС]	3
	qwertehok, как это реализовать через dialogsave? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	26.05.2016, 13:07	4
	подумай и ответь на вопрос - что делает SaveDialog? 0

@sajokarife 4 / 4 / 1 Регистрация: 18.01.2016 Сообщений: 163
	26.05.2016, 15:12 [ТС]	5
	qwertehok, указывает путь и задает имя? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	26.05.2016, 15:13	6
	точно что бы сохранить таблицу нужно УЖЕ знать имя и путь значит нужно вызвать диалог ДО сохранения как его вызвать и обработать нужно писать? 0

@sajokarife 4 / 4 / 1 Регистрация: 18.01.2016 Сообщений: 163
	26.05.2016, 15:38 [ТС]	7
	qwertehok, нет, разберусь. Спасибо за помощь 0

Запись из стринггрида в файл

Решение