Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
D3s
1

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

19.10.2010, 15:11. Показов 1520. Ответов 2
Метки нет (Все метки)

Собственно сабж, каждую ячейку нужно поочередно записать в файл через
Код
;
не переходя на следующую строку.
Спасибо
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.10.2010, 15:11
Ответы с готовыми решениями:

Как сохранить матрицу из StringGrid в txt файл?
Как сохранить матрицу из StringGrid в txt файл?

Есть структура, как сохранить в файл из StringGrid
Есть структура struct spisok { char names; //Имя char famil; ...

Как принудительно сохранить файл, без выскакивания окошка ' Файл 1.xls уже существует, заменить?'
Как принудительно сохранить файл, без выскакивания окошка ' Файл 1.xls уже существует, заменить?'

Как сохранить xml файл без BOM?
Здравствуйте! Как сохранить xml файл в кодировке UTF-8 без BOM ?

2
КотЪ
219 / 219 / 60
Регистрация: 26.05.2009
Сообщений: 688
19.10.2010, 18:05 2
Лучший ответ Сообщение было отмечено как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;
0
Йошь-мыслитель
124 / 118 / 26
Регистрация: 22.02.2009
Сообщений: 693
Записей в блоге: 5
19.10.2010, 21:43 3
Или, чтобы не класть Memo:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.10.2010, 21:43

Как сохранить содержимое RichTextBox в файл без потери форматирования
Всем доброго времени суток! Сегодня столкнулся с такой вот проблемой: пишу аналог блокнота на c#,...

Сохранить вкладку как новый файл без изменений (Excel)
Добрый день! Помогите с макросом, который будет: 1) Удалять все строки в который есть...

Как сохранить текстовый файл в кодировке UTF8 без ВОМ?
Как сохранить текстовый файл просто в UTF8 - понятно: IO.File.WriteAllText(FilePath, Text,...

Как сохранить VBA-массив в CSV-файл без Excel
Как можно сохранить VBA-массив в CSV-файл без использования Excel? Сейчас я сначала вставляю...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru