Скачать: CL | DM;

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]

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

---

← →
evvcom ©   (2003-04-21 12:13) [9]

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

---

← →
Till ©   (2003-04-22 08:57) [10]

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

---

← →
Anatoly Podgoretsky ©   (2003-04-22 11:27) [11]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c