[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]

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

[Polus39]

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

Код:

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

[gvozdkoff]

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

[angvelem]

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