|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вывод текстового файла в Stringgrid
Доброго времени суток!
Задача такова. В форме я записываю данные которые сохраняются в текстовый файл и имена которых отображаются в Filelistbox. Хочу сделать чтобы при выборе файла в Filelistbox он открывался в стринггрид и но не с 1 столбца,а со второго. Вот процедура вывода.Но есть косяк: 1)Вывод с первого столбца. 2)Первый файл выводится нормально, потом я очищаю стринггрид, но второй и т.д считываются всё ниже и ниже как будто начало таблицы занято. Код:
AssignFile(ff, Form3.fllst1.FileName); Reset(ff); try While not Eof(ff) Do Begin ReadLn(ff, St); With Form9.stringGrid1 Do Begin rowCount:=rowCount +1 ; rows[rowCount -1].Text:=StringReplace(St, #9, #13#10#15, [rfReplaceAll]); End; {With} End; {While} finally CloseFile(ff); end; |
#2
|
|||
|
|||
в самом начале процедуры, тогда не будет "как будто начало таблицы занято":
Код:
Form9.stringGrid1.rowCount := 0; взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |
#3
|
|||
|
|||
Спасибо!!
|
#4
|
|||
|
|||
Можно ли сделать так , чтобы не с первого столбца вывод шёл, а со второго?
|
#5
|
|||
|
|||
вот как-то так:
Код:
var ff: TextFile; St: string; i: integer; begin AssignFile(ff, Form3.fllst1.FileName); Reset(ff); stringGrid1.rowCount := 0; i := 0; try while not Eof(ff) do begin ReadLn(ff, St); with stringGrid1 do begin Cells[1,i] := StringReplace(St, #9, #13#10#15, [rfReplaceAll]); // - тут 1 номер столбца начиная с 0 rowCount := i+1; Inc(i); end; {With} end; {While} finally CloseFile(ff); end; end; взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя Последний раз редактировалось Assistant, 27.04.2011 в 14:26. |
#6
|
|||
|
|||
Огромное спасибо за помощь. Очень выручил
|
#7
|
|||
|
|||
У меня опять вопрос.
Можно ли сделать так: Я загружаю файл в таблицу(stringgrid), Пример Код:
Клиент 4234234 232.23123.231.54 Www.@mail.ru Socket AM2 AMD Athlon 64 X2 7550+ western digital 320Gb DIMM 512Mb DDR2 PC4200 533MHz Corsair 3213 213123 ________________ Samsung SyncMaster BX2231 3213 2131231 ________________ Gewald Electric RW3KS 3213 312 ________________ Samsung SCX-4824FN 31312 32213 ________________ |