![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Доброго времени суток!
Задача такова. В форме я записываю данные которые сохраняются в текстовый файл и имена которых отображаются в 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; |
|
#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;Последний раз редактировалось 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 ________________ |