[решено] Нужна помощь с ассемблером в Delphi (найти точку в строке).

Jhakal
Ну,можно примерно так:

Код:

var

 s: String;

 Len: Integer;

 Index: Integer;

begin

if edInput.Text <> '' then

 begin

  s := edInput.Text; // Чем-то заполняем строку s

  Len := Length(s);  // Вычисляем её длину

  asm

   push  edi           // Сохраняем регистры EDI, ECX

   push  ecx

   mov   edi, s       // EDI -- указатель на строку        

   mov   ecx, Len   // ECX -- счётчик

   mov   al, $2E     // AL -- искомый элемент; байт $2E есть "точка"

// выполняем команду сканирования цепочки пока в последней не встретится элемент,

// совпадающий с элементом в регистре AL

   repnz scasb      

   inc   ecx             // Инкремент счётчика,чтобы вернутся чуть назад т.к., когда мы просканировали элемент,мы его "проехали"

   mov   eax, Len

   sub   eax, ecx    // Вычитаем счётчик из общей длины строки

   mov   Index, eax   // Сохраняем результат

   pop   ecx

   pop   edi           // Восстанавливаем регистры EDI, ECX

  end;

 end;

end;

Учти,что строка -- это тот же массив,поэтому индексация первого элемента ведётся от нуля.

Всё ж...какая гадость эта ваша заливная рыба...это я про Дельфи.