Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Длина строки

Автор: HighTemplar 10.6.2005, 11:35

Как в Delphi узнать длину строки в текстовом файле?

Автор: Quadr0 10.6.2005, 12:37

...

Автор: Негодяй 10.6.2005, 16:32

Цитата(HighTemplar @ 10.6.2005, 11:35)

длину строки в текстовом файле?

Если в файле можно так:

Код


begin
memo1.Lines.LoadFromFile('c:\Setupxlg.txt');
caption:=inttostr(length(memo1.Lines.Strings[1]));
end;

свойство Strings[index] - позволяет обратиться к желаемой строке

Автор: AgereS 10.6.2005, 17:01

сделай хэш а уж от него и пляши

Автор: badaninslava 10.6.2005, 18:09

Зачем мемо-просто

Код


program str;  
uses ... //не помню какие модули подключать
var FileN, S:string; F :TextFile;
begin
writeln('Введите имя файла.');
readln(FileN);
if FileExists(FileN) then
 begin 
  Assign(F,FileN);
  while not EOF(F,) do 
    begin
     readln(F,S);
    writeln(S,' -',Length(S),' символов');
    end;
 CloseFile(F);
 end;
end.