|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Заполнение TStringGrid из текстового файла
Есть файл db.txt в котором формат текста:
Данные1 : Данные 2 Данные1 : Данные 2 Данные1 : Данные 2 Данные1 : Данные 2 есть TStringGrid с двумя колонками в которые эти данные вносятся. Код:
db: Textfile; I,II,PosG,PosD:Integer; ColonneB,ColonneC,Ligne:String; ..... II:=1; Readln(db, Ligne); //Первый столбец posG := 0; ColonneB := Copy(Ligne , posG, Length(Ligne)-posG); posD := pos(':',ColonneB); ColonneB:= Copy(Ligne , posG,posd-1); StringGrid1.Cells[1,II]:= Trim(ColonneB); //Второй столблец posG := posD+2; ColonneC := Copy(Ligne , posG, Length(Ligne)-posG); posD :=length(Ligne); ColonneC:= Copy(Ligne , posG,posd-1); StringGrid1.Cells[2,II]:= ColonneC; //Счётчик строки if ColonneB <>'' then II:=II+1; Нужно добавить ещё Н-колонок и в текстовом файле формат расширить на Н-колонок соответственно. Данные1 : Данные2 : Данные3 : Данные4 Данные1 : Данные2 : Данные3 : Данные4 Данные1 : Данные2 : Данные3 : Данные4 Данные1 : Данные2 : Данные3 : Данные4 Код не простой, я не разобрался как в нём оттолкнутся от 2 столбца к следующему символу : Может кто подскажет в каком направлении копать или более простой метод фильтра строк которые нужно разобрать по ячейкам? |
#2
|
||||
|
||||
Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
LostFuture (18.01.2014)
|