Чтение из файла

[Алекссс]

Еще вопросик как правильно записать можно чтение их txt если процедура записи такая (ссори я StrigGrid) практически не пользуюсь не наю его(((

вот процедура сохранения

procedure TForm1.SpeedButton2Click(Sender: TObject);
Var I : Byte;
    F : TextFile;
    S : String;
begin
AssignFile(F, form3.Edit1.Text);
Rewrite(F);
  For I := 1 to StringGrid1.RowCount - 1 do
  Begin
    S :=StringGrid1.Cells[0,I]+' '+ StringGrid1.Cells[1,I] +' '+
          StringGrid1.Cells[2,I]+' '+StringGrid1.Cells[3,I]+' '+StringGrid1.Cells[4,I];
    Writeln(F,S)
  end;
CloseFile(F)
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

в общем случае - никак!

в частном случае, если предположить, что внутри записываемых ячеек грида НЕТ пробелов,
тогда можно читать по строчно и разбирать полученную на отдельные элементы, разделённые пробелами (через Pos / PosEx, например).

[Алекссс]

получается что записывает вот так

1 2 3 4 0,8
5 6 7 8 0,615384615384615
9 10 11 12 0,571428571428571

и между ними есть пробел - как быть?

[Serge_Bliznykov]

procedure TForm2.ButtonLoadTextToStringGridClick(Sender: TObject);
Var I, IndexRow, col, offset, posSpace : integer;
    TS : TStringList;
    S : String;
begin
  TS := TStringList.Create;
  TS.LoadFromFile( form3.Edit1.Text );
  StringGrid1.RowCount := TS.Count + 1;
  IndexRow := 0;
  for i := 0 to TS.Count - 1 do begin
    if Trim(TS.Strings[i])<>'' then begin
       Inc(IndexRow);
       s := Trim(TS.Strings[i])+' ';
       offset := 1;
       col := 0;
       while PosEx(' ',s, offset)>0 do begin
          posSpace := PosEx(' ',s, offset);
          StringGrid1.Cells[ col, IndexRow] := copy(s, offset, posSpace - offset);

          Inc(col);
          offset := posSpace+1;
       end;
    end;
  end;
  FreeAndNil(TS);
end;

[Алекссс]

спасибо разобрался, скажите а как добавить OpenDialog или SaveDiaog для сохранения в этот код

procedure TForm1.SpeedButton2Click(Sender: TObject);
//сохраняем в файл 1 грид
Var I,j : Byte;
    F : TextFile;
    S : String;
begin
AssignFile(F, form3.Edit1.Text+form3.Edit2.Text);
Rewrite(F);
  For I := 1 to StringGrid1.RowCount - 1 do
  Begin
    for j:=0 to 4 do
      Writeln(F,StringGrid1.Cells[j,I])
  end;
CloseFile(F)
end;

[ych_del]

Например, так:

if not SaveDialog1.Execute then Exit else S := SaveDialog1.Filename;
AssignFile(F, S);
Rewrite(F);