[badtrips]

Выдали лаб работу в которой нужно определить входит ли в строку какая либо подстрока,при этом функцию pos использовать нельзя,можно со строкой работать как с массивом символов.Начал делать цикл со сравнением,и теперь завис на том что не знаю как определить конец строки что бы выйти из цикла.тип использую string,у него в конце терминальный нуль,может с ним как то можно?
Заранее спасибо.

[friz]

Код:

var
dlina_stroki:integer;
begin
dlina_stroki:=length('самая длинная в мире стока');
end;

[badtrips]

извиняюсь,не до конца написал условие."В первой задаче не используйте функции и процедуры для выполнения операций над строкой".

[angvelem]

Ну тогда прочитай байт по нулевому смещению строку, это и будет длина строки.
P.S. Заодно не пользуйтесь компилятором Дельфи и операционной системой.

[angvelem]

Примерно так:

Код:

...
var
  i : Integer;
begin
  i := 1;
  if MyString <> '' then
  while MyString[i] <> 0 do
  begin
     ...
     inc(i);
  end;
end;
...

[badtrips]

Спасибо).такое уж задание выпало...