Перевести на асемблер

[nusik]

Здравствуйте. Как перевести на асм след код на Delphi

function ReversePos(substr:char;str:string;index:integer):integer;
var i:integer;
begin
  for  i := index downto 1 do
    begin
       if substr=str[i] then begin
          Result:=i;
          break;
       end;
    end;
end;

Буду очень благодарен!

[Stilet]

Запусти, открой в отладчике (можно даже не во встроенном в среду) и посмотри как это на ассемблере выглядит.
P.S. по крайней мере я бы с этого начал.

[nusik]

Забил на асм сейчас врдяли что-то получиться ...быстродейстивя не хватает 4 мин 2% документа обрабатывает когда весь корпус будет в 1 млн слов что тогда будет)

[Somebody]

Это на Delphi на стамегабайтной строке работает меньше секунды, здесь уже нечего оптимизировать (ну или почти нечего, не важно), всё и так хорошо. Так что проблема не в этой функции, а в том как и откуда этот документ читается.

[nusik]

Cпасибо , я что только в коде не делал, едва 5% вырвал видимо бесполезное дело,если шо читается в стринглист из файла ...

[Stilet]

едва 5% вырвал

Значит однозначно код непродуман.

[BARNEY]

может легче документ с начало в memo загрузить?? или в буфер?