31.03.2008, 11:09
|
Начинающий
|
|
Регистрация: 28.02.2008
Сообщения: 118
Репутация: 21
|
|
Код:
function LengthString(s: string): integer;
var
temp: string;
begin
Result := 0;
// Если нет пробелов
if pos(' ', s)=0 then
begin
Result := length(s);
exit;
end;
Temp := s;
// Проверям длины строк
while pos(' ', Temp)<>0 do
begin
if (Result<pos(' ', Temp)-1) then Result := pos(' ', Temp)-1;
System.Delete(Temp, 1, pos(' ', Temp);
end;
// Проверяем последнюю часть строки, т.к. в конце строки может и не быть пробела
if length(Temp)>Result then Result := length(Temp);
end;
|