|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Из файла в таблицу
Помогите, нужно создать программу,которая из данные из текстового файла типа такого выводит на форму в таблицу.Использовать stringgrid
Последний раз редактировалось jwern, 14.07.2010 в 12:11. |
#2
|
|||
|
|||
Помогите или напишите?
если помогите то "и хде же код"? Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |
#3
|
|||
|
|||
напишите пжлст...чесна мне не лень прост я реал не знаю ... читал уже теорию... все равно непонятно ниче... вот простой пример ..оч нужен код по нему
|
#4
|
|||
|
|||
Код:
procedure TForm1.Button1Click(Sender: TObject); var inFile: TextFile; par: TStringList; s: string; i: integer; begin AssignFile(InFile, '1.txt'); Reset(InFile); Par := TStringList.Create; Par.Clear; while not Eof(InFile) do begin Readln(InFile, S); ExtractStrings([' '], [' '], PChar(S), Par); end; closeFile(inFile); StringGrid1.ColCount:=5; StringGrid1.RowCount:=(Par.Count+1) div 4 +1; for i:=0 to Par.Count-1 do StringGrid1.Cells[((i) mod 4)+1,((i) div 4)+1]:= par.Strings[i]; end; Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |
#5
|
|||
|
|||
спасиб) а какие компоненты нужны кроме стрингрида?
|
#6
|
|||
|
|||
Цитата:
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |