06.06.2011, 01:05
|
 |
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
Примерно так:
Код:
...
var
i : Integer;
begin
i := 1;
if MyString <> '' then
while MyString[i] <> 0 do
begin
...
inc(i);
end;
end;
... |