Нужно сделать одну задачу на ЯП Асемблер

[Rumba]

Тема работа со строками.
Задание: Заменить группу на символ.
Как мне обяснили это делать надо так: задаёшь строку из скольки то симолов, потом задаёшь начало и конец того куска строки который хочешь заменить(например строка абвгдеё и задаёшь от 3го сивола по 5) и заменяешь символом эот кусок ( должно остаться абNеё)

Вот моя аська 194-242-983 если что пишите.
З.Ы. За мной не заржавеет

Заранее благодарен

[Shuraken]

Ну, поскольку Делфи может показать ассемблерный код, то надо написать функцию, возвращающую измененную строку, в которую передаешь исходную строку, номера символов, с какого по какой заменять и символ замены. Функция будет выглядеть (на Делфи) примерно так:
function MyReplaceSymbol(SouString: string; SouFrom, SouTo: integer; ReplaceSymbol: char): string;
begin
Result := copy(SouString, 1, SouFrom - 1) + ReplaceSymbol + copy(SouString, SouTo + 1, Length(SouString));
end;

А дальше запускаешь прогу, ставишь точку останова на входе этой функции, подаешь ей что надо на вход, запускаешь функцию и на точке останова нажимаешь F12 и вот тебе ассемблерный код.

[Rumba]

Мне бы на асемблере всё это надо. А деньги бы я через веб мани перевёл или ещё как нибудь. Просто с программированием не дружу=)

[Shuraken]

lea eax, [ebp-$08];
push eax;
mov ecx, ebx;
dec ecx;
mov edx, $00000001;
mov eax, [ebp - $04];
call @LStrCopy;
push dword ptr [ebp - $08];
lea eax, [ebp - $0c];
mov dl, [ebp + $0c];
call @LStrFromChar;
push dword ptr [ebp - $0c];
lea eax, [ebp - $10];
push eax;
mov eax, [ebp - $04];
call @LStrLen;
mov ecx, eax;
mov edx, [ebp + $10];
inc edx;
mov eax, [ebp - $04];
call @LStrCopy;
push dword ptr [ebp - $10];
mov eax, [ebp + $08];
mov edx, $00000003;
call @LStrCatN;
xor eax, eax;
pop edx;
pop ecx;
pop ecx;
mov fs:[eax], edx;
push $00452014;
lea eax, [ebp - $10];
mov edx, $00000004;
call @LStrArrayClr;
ret;
jmp @HandleFinally;
jmp -$15;

это в асме. В Делфях так:

function TForm1.MyReplaceStr(SouString: string; SouFrom, SouTo: integer;
ReplaceSymbol: char): string;
begin
Result := copy(SouString, 1, SouFrom - 1) +
ReplaceSymbol +
copy(SouString, SouTo + 1, Length(SouString));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := MyReplaceStr(Edit1.Text, 1, 3, 'a');
end;