Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
А Карамелька
47 / 5 / 0
Регистрация: 23.06.2012
Сообщений: 21
1

Вывод матрицы в текстовый файл

23.06.2012, 07:23. Просмотров 1485. Ответов 5
Метки нет (Все метки)

Здравствуйте!
Помогите, пожалуйста, красиво записать матрицу 2х2 в текстовый файл.
Матрица записывается по строкам, значения ячеек отделяются пробелами, но из-за разного количества цифр столбцы получаются кривые.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
//Запись матрицы
procedure TForm1.SaveGrid(Grid:TStringGrid);
var
i,j: integer;
begin
  for i := 0 to Grid.RowCount - 1 do
    begin
      for j := 0 to Grid.ColCount - 1 do
      Write(Doc, grid.cells[i,j]+'   ');  // запись данныx
      Writeln(Doc,'');
    end;
end;
Возможно ли вывести матрицу другим способом?
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.06.2012, 07:23
Ответы с готовыми решениями:

Вывод результата программы в текстовый файл и в двоичный файл с именем, задаваемым пользователем
Подскажите пожалуйста, что нужно исправить. Нужно организовать вывод результата программы в...

Вывод StringGrid в текстовый файл
Как вывести значения с StringGrid в текстовый файл, например матрицу 4x4 ???

Вывод структуры данных в текстовый файл
Добрый вечер. Прошу помощи в поиске ошибки при выводе структуры данных в txt файл. В чем состоит...

Вывод размеров файлов и папок в текстовый файл
Здравствуйте уважаемые посетители, есть такая проблема: есть папка, в ней 'F' количество файлов,...

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

5
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
23.06.2012, 07:43 2
А табуляцией пользоваться не пробовали? Потому что для разных шрифтов будут разные сдвижки. А если использовать в блокноте шрифт Courier - там для каждого символа одинаковая ширина. И нужно только выровнять по количеству символов.
Можно ещё используя функцию TextWith Canvas-а для определённого шрифта и полученную длину текста в пикселах добавлять пробелы до какой-то нужной длины. Потом выводить. Предполагаю, что выравнивание будет.
0
А Карамелька
47 / 5 / 0
Регистрация: 23.06.2012
Сообщений: 21
23.06.2012, 07:48  [ТС] 3
м, спасибо, то есть нужно посчитать макс. количество символов в ячейке и в меньших по размеру добавлять пробелы?
0
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
23.06.2012, 07:57 4
Можно просто записать:
Delphi
1
      Write(Doc, grid.cells[i,j]:10);  // запись данныx
10 символов для одного числа. Только не помню по какому краю будет выравнивание.
Или добавлять недостающие пробелы. Рассчитав, сколько нужно для максимального числа +1.
Дл этого можно использовать функцию StringOfChar(' ',количество);. А может и другие функции выравнивания, типа FormatFloat - нужно посмотреть, но сейчас спешу и точно не скажу.
Но это же будет только для одного шрифта. Для любого - лучше вставлять символ табуляции #9.
1
illuminates
3 / 3 / 0
Регистрация: 14.06.2012
Сообщений: 109
23.06.2012, 08:57 5
привет=)
0
А Карамелька
47 / 5 / 0
Регистрация: 23.06.2012
Сообщений: 21
23.06.2012, 14:52  [ТС] 6
привет)
0
23.06.2012, 14:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2012, 14:52

Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого содержит символы
Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого...

Работа с внешними файлами, ввод/вывод в текстовый файл
Как сделать эту лабу... Помогите пожалуйста

Вывод строк стека в текстовый файл в обратном порядке
Помогите, пожалуйста, с заданием: Используя стек, напечатать содержимое текстового файла,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru