[gvozdkoff]

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

Код:

1 2 3

#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).

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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;

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

Код:

1	L:=Length(TempStr[1]);

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

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

Код:

1	TempStr[1]

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

[Polus39]

Я не проверял, ро должно работать

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

<b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>Var</b>  StrList: TStringList;  TempStr: <b>String</b>;   L,i: Integer; <b>begin</b>   StrList:= TStringList.Create;   <b>try</b>     StrList.LoadFromFile('2.txt');     Label2.Caption  := inttostr(StrList.Count);     <b>for</b> i := 0 <b>to</b> StrList.Count - 1 <b>do begin</b>       TempStr :=  StrList.Strings[i];       L := Length(TempStr);       Label1.Caption  := inttostr(L);     <b>end;</b>   <b>finally</b>     StrList.Free;   <b>end;</b> <b>end;</b>

[gvozdkoff]

спасибо большое, все отлично , код рабочий

[angvelem]

Переменная TempStr лишняя.