[LostFuture]

Есть файл 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 столбца к следующему символу :

Может кто подскажет в каком направлении копать или более простой метод фильтра строк которые нужно разобрать по ячейкам?

[poli-smen]

Сообщение от LostFuture

Код не простой, я не разобрался как в нём оттолкнутся от 2 столбца к следующему символу :

Используй функцию PosEx из модуля StrUtils. В ней в отличие от Pos можно указывать номер символа с которого начинать поиск подстроки, а обычная Pos ищет всегда с первого символа строки.