Как сохранить файл из StringGrid без табуляций и переходов

19.10.2010, 15:11. **Показов** 1644. **Ответов** 2

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

Собственно сабж, каждую ячейку нужно поочередно записать в файл через

Код

не переходя на следующую строку.
Спасибо

@Zabiyak · 19.10.2010, 18:05

Delphi

procedure TForm1.Button1Click(Sender: TObject);
  var
    i,j: integer;
    S: string;
  begin
    S:= '';
    for i:= 0 to StringGrid1.RowCount-1 do
      for j:= 0 to StringGrid1.ColCount-1 do
        S:= S+StringGrid1.Cells[i,j]+';';
    Memo1.Clear;
    Memo1.Lines.Add(S);
    SaveDialog1.Execute;
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
  end;

@Xander Bass · 19.10.2010, 21:43

Или, чтобы не класть Memo:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j: integer;
  S: string;
  F: TextFile;
begin
  S:= '';
  for i:= 0 to StringGrid1.RowCount-1 do
    for j:= 0 to StringGrid1.ColCount-1 do
      S:= S+StringGrid1.Cells[i,j]+';';
  if SaveDialog1.Execute then
  begin
    Assign(F,SaveDialog1.FileName);
    Rewrite(F);
    Write(F,S);
    CloseFile(F)
  end
end;

	19.10.2010, 21:43

Опции темы

Как сохранить файл из StringGrid без табуляций и переходов

Решение