Как в Stringgrid загрузить файл через OpenDialog

[Doni1]

Сообщение от min@y™

Вот такой:

 procedure LoadStringGrid(SG1: TStringGrid; const FileName: TFileName);
 var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with SG1 do
   begin
     // Get number of columns
    Readln(f, iTmp);
     ColCount := iTmp;
     // Get number of rows
    Readln(f, iTmp);
     RowCount := iTmp;
     // loop through cells & fill in values
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
   CloseFile(f);
 end;
procedure TForm1.Open1Click(Sender: TObject);

Begin
LoadStringGrid(SG1, 'c:\temp.txt');
end;

Когда нажимаю кнопку ошибку выдает

[min@y™]

для этого Вас и просят выложить пример текстового файла, который у Вас получается при сохранении грида в файл

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

Когда нажимаю кнопку ошибку выдает

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

[Doni1]

Там тип файла просто файл

Сообщение от min@y™

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

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

можно и .txt попробовать

[min@y™]

Сообщение от Doni1

можно и .txt попробовать

Ну дай этот файл-то, выложи, шоб мы скачали и посмотрели его содержимое, ядрёнамать!

ты меня немного устал.

[Doni1]

Архив WinRAR.rar

Сообщение от min@y™

Ну дай этот файл-то, выложи, шоб мы скачали и посмотрели его содержимое, ядрёнамать!

ты меня немного устал.

[Serge_Bliznykov]

Doni1
ты из разных мест накопировал разные процедуры чтения и записи.
А она должны быть согласованы - читать можно только то, что записал.

попробуй для твоей процедуры LoadStringGrid такую процедуру SaveStringGrid:

 procedure SaveStringGrid(SG1: TStringGrid; const FileName: TFileName);
 var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Rewrite(f);
   with SG1 do
   begin
     // Save number of columns
     iTmp := ColCount;
     WriteLn(f, iTmp);
     // Save number of rows
     iTmp := RowCount;
     Writeln(f, iTmp);

     // loop through cells & save it's values
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         strTemp := Cells[i, k];
         Writeln(f, strTemp);
       end;
   end;
   CloseFile(f);
 end;

[min@y™]

Архив WinRAR.rar

в архиве файл размером 6 байт, 4 из которых - символы бабуляции, а 2 - перенос строки/возврат.
Ты издеваешься? Это тебе надо или мне?

[Doni1]

rrr.txt

Сообщение от min@y™

в архиве файл размером 6 байт, 4 из которых - символы бабуляции, а 2 - перенос строки/возврат.
Ты издеваешься? Это тебе надо или мне?

Надо заполнить систему СЛАУ

[Serge_Bliznykov]

Вы мой пост не заметили или просто проигнорировали?

[Doni1]

Сообщение от Serge_Bliznykov

Вы мой пост не заметили или просто проигнорировали?

Заметил, не получается

var
  f : TextFile;
  i, j : integer;
begin
  if not SaveDialog1.Execute then Exit;

  AssignFile(f, SaveDialog1.FileName);
  Rewrite(f);
  for i := SG1.FixedRows to SG1.RowCount-1 do begin
    if i > SG1.FixedRows then Writeln(f);
    for j := SG1.FixedCols to SG1.ColCount-1 do begin
      if j > SG1.FixedCols then Write(f, #9);
      Write(f, SG1.Cells[j, i]);
    end;
  end;
  CloseFile(f);

Помогите на основе этого сделать загрузку