strend.pas

Пример программы для функции StrEnd.

Код примера
 {StrEnd.PAS}
 
 { Пример программы для функции StrEnd }
 
 Uses Strings, WinCrt;
 
 Var S : Array [0..79] Of Char;
 
 Begin
  ReadLn(S);
  WriteLn('Длина строки = ', StrEnd(S) - S);
 End.
 

Скачать strend.pas