Как узнать длину строки в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

uses SysUtils;

var
  s: string;
  len: Integer;
begin
  s := 'Hello, world!';
  len := Length(s);
  writeln(len);  // выведет 13
end.

1
2
3
4
5
6

var
  a: array[0..9] of Integer;
  len: Integer;
begin
  len := Length(a);  // len равен 10
end.

1
2
3
4
5
6
7
8

var
  str: string;
  len: integer;
begin
  str := 'Hello, World!'; // инициализация строки
  len := Length(str); // получение длины строки
  ShowMessage(IntToStr(len)); // вывод длины строки на экран
end;