[gvozdkoff]

Здравствуйте, уважаемые.
Задача такая:
есть текстовый файл такого вот содержания

Код:

#43faec76$GPRMC,181300.000,A,5508.9052,N,06122.6377,E,0.00,231.09,221111,,,A*68
##
#43faec76$GPRMC,181330.000,A,5508.9052,N,06122.6377,E,0.00,231.09,221111,,,A*6B

Кол-во строк может быть равно 1000
Задача:
1. посчитать количество символов в строках (построчно)
2. удалить строки , кол-во символов в которых < 3 (меньше 3).

вот что я делаю

Код:

Var
 StrList: TStringList;
 TempStr: String;
  L,i: Integer;
begin
StrList:= TStringList.Create;
try
StrList.LoadFromFile('2.txt');
TempStr:=StrList.CommaText; //либо TempStr:=StrList.Text;
L:=Length(TempStr);  // здесь мне подсчитывает все символы в файле
Label2.Caption:= inttostr(StrList.Count);
Label1.Caption:= inttostr(L);
finally
StrList.Free;

если же делаю так

Код:

L:=Length(TempStr[1]);

// думаю что приписываю 1-ую строку и получу кол-во символов в ней

то результат у меня равен 1, причем всегда називисимо от значения

Код:

TempStr[1]

Ну и сам вопрос, как же посчитать кол-во символов в каждой строке?
Большое спасибо за потраченное время.