StringGrid

← →
Till © (2003-04-20 15:12) [0]

народ подскажите плиз как все данные которые есть в СтрингГриде представить в виде таблички ну например такой в txt файле
Имя | Фамилия |Адрес |
-----------------------
а тута все данные из стрингГрида???
Плиз помогите??????!?!?!

← →
Мыш © (2003-04-20 23:01) [1]

Нужно по очереди перебрать все ячейки (во вложенном цикле перебираешь колонки во внешнем-строки), и в теле цикла делать так:
s:=s+grid.cells[i,g]+#9 а если это последняя колонка, то не #9, а +#13+#10

← →
Neft © (2003-04-21 01:52) [2]

Мыш

#9 чо за зверь?

← →
Till © (2003-04-21 06:29) [3]

Честно ничего не понял :((

← →
GrEG (2003-04-21 08:20) [4]

#9 - табуляция. И этот вариант не всегда даст желаемый результат. Если длина содержимого полей значительно различается, то в выходном файле с высокой вероятностью получим смещения текста внутри колонок.
z.B.:
123 234522346 1234
123125152 123123 456747
1234123 5678567 34536756
Гораздо надежнее приводить размер содержимого полей к единому значению, дополняя поля пробелами (слева, справа, с обоих сторон - как угодно).

← →
GrEG (2003-04-21 08:21) [5]

z.B.: 123 234522346 1234 123125152 123123 456747 1234123 5678567 34536756

← →
Мыш © (2003-04-21 09:05) [6]

i:=0;
while i<grid.rowcount do
begin
j:=0;
while j<grid.colcount do
begin
s:s=s+grid.cells[j,i]+#9;
inc(j);
end;
s:s=s+#13+#10;
inc(i);
end;

#9-символ, который в ascii - тексте обозначает tab , #13+#10 - если блокнот встречает такую комбинацию, делает переход строки (enter)

← →
evvcom © (2003-04-21 09:34) [7]

Форматировать текст действительно лучше, дополняя его пробелами, а не табуляцией. Есть например такой формат Write(Txt, MyNumber:10);
А #13+#10 еще можно записать без знака "+", т.е. так: #13#10. Или применительно к текстовым файлам Writeln(TxtFile);

← →
Мыш © (2003-04-21 11:11) [8]

Зато если табы, то с экселем совместимость будет

Оно и без табов с экселем нормально будет (немного дольше правда). Правда, у меня Office XP, не помню в предыдущих версиях было или нет Данные->Текст по столбцам.

Спасибо буду пробовать :))

Мыш © (20.04.03 23:01)
Это вариант не проходит по условию задачи
Надо дополнять пробелами до фиксированной длины и добавлять к ним " | "

Мыш © (21.04.03 11:11)
Фиксированный формат также совместим с Эксель!

StringGrid Найти похожие ветки