работа с текстовыми файлами

[Bayazet]

у меня есть файл типа TEXT (он может быть достаточно быльшим ~10-12 мб), и переменная str типа WIDESTRING

мне необходимо в прогрессбар передавать состояние прочитывания файла.
для этого я использую функцию SIZEOF(file1), что и является максимумом прогрессбара, и для каждой Readln (file1, str) я тоже определяю SIZEOF(str) и плюсую к позиции прогрессбара

но видимо размеры определяются по разному и прогрессбар заполняется криво. (я НЕ забываю обнулять позицию в начале )

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

заранее благодарю

[_Engine_]

procedure TForm1.FormCreate(Sender: TObject);
var
  WS : Widestring;
begin
  WS := '123456789';
  ShowMessage('SizeOf = ' + IntToStr(SizeOf(WS)) + '   Length = ' + IntToStr(Length(WS)));
end;

Запусти и удивись

[Bayazet]

ну, в общем-то, да, не совпадают
а файл с таким же содержанием вообще, на несколько порядков больше
но это проблемы не отменяет

[_Engine_]

В моем предыдущем посте был ответ на твой вопрос. Но ты так и не удосужился задуматься над тем, что я тебе привел.

[Bayazet]

ну, давай поразмышляем вслух

sizeof(ws) возвращает 4, length(ws) - 9
если я создаю тхт файл в котором всего одна строка "123456789", sizeof(f) мне дает 460. когда я оттуда считываю строку ws, мне возвращаются все теже 4 и 9

а рекомендации в каком направлении мне стоит двигаться я не заметил..
я долго смотрел

[_Engine_]

Можно еще и справку посмотреть по этим функциям

[Bayazet]

sizeof возвращает количество байт из памяти на эту переменную
но все равно, остается вопрос открытым:
sizeof(file) не равен сумме sizeof каждой строки этого файла!

[_Engine_]

строка - это указатель. SizeOf дает размер указателя, который равен 4

[Bayazet]

а что надо сделать, чтобы выковырнуть по указателю само поле в памяти??

[DeKot]

Для текстовых файлов можно использовать TStrings, а конкретней TStringList;

var  F: TStringList; // F - текстовый файл
        KolStrok: integer;
begin
  F:= TStringList.Create;
  F.LoadFromFile('FileText.txt');
  KolStrok:= F.Count;  // Свой-во Count  указывает кол-во строк в файле
  F.Free;
end;

Доступ к строкам - F.Strings[i]:= 'бла-бла-бла';
Свойства : F.Add(string);
F.SaveToFile('fileName.txt');
F.Clear;
F.Insert(i,'вставляемый текст')
F.Delete(i);
Для не текстовых файлов хорошо применять F: FileStream;
SizeOfFile:= F.Seek(0,soFromEnd); // курсор в конец файла и возвращает
// общее кол-во байт в файле