Почему деление на 0?

[macomics]

А он ASM не использует - так баловство.

[Kronos913]

Сообщение от FaTaL

Зачем Вы кодите на Delphi, если используете ASM?

Основной код программы на Delphi
Asm использую для оптимизации каких-то небольших операций

Потому как иногда asm код выглядит намного проще, чем тот что генерирует язык высокого уровня

[macomics]

Тогда лучше бросайте это. Тот код, что вы добавляете содержит огромное количество огрехов.

[Kronos913]

Вообще, началось все с одной процедуры, которая на ассемблере была проще - потому как напрямую делалось многое, что иначе приходится делать через костыли

А дальше я начал замечать, что многие вещи все равно можно сделать лучше.
Например, если использовать 1 и 2 байты регистра как разные переменные, можно не выходя из регистров проводить вычисления. Без обращения к оперативке явно ж будет быстрее

Во-вторых, некоторые действия делаются без лишних телодвижений. По идее, если собирать строку по 1 символу обычным циклом - то каждый раз делается перезапись строки, коррекция ее длины

А через asm записал все символы, а потом уже записал в нулевой символ итоговую длину

[macomics]

Только вы должны делать все это после выделения памяти. Вам ни кто не мешает сначало выделить строку нужно длины и добавлять в нее по символу.

str := '                ';
for i := 0 to 15 do str[i] := char(i + 32);

[Kronos913]

Сообщение от macomics

Только вы должны делать все это после выделения памяти. Вам ни кто не мешает сначало выделить строку нужно длины и добавлять в нее по символу.

str := '                ';
for i := 0 to 15 do str[i] := char(i + 32);

А если не знаешь сразу, сколько там будет итоговая длина=))

Но вот я недавно через asm конструировал функцию, которая вставляет пробелы каждые сколько-то символов, при этом начинает с конца

'1234567890' -> '1 234 567 890'

Методами высокого уровня нужно было бы на каждом вставленном пробеле двигать всю строку

Через asm - сначала вычисляется место первого пробела, потом по символам создается строка result и уже потом записывается в нулевой символ длина строки по разнице адресов ячеек

[macomics]

Я согласен, что на asm эта возьня может быть выполнена проще, но если постараться можно и на Pascal написать адекватный алгоритм. Просто надо делать не стандартно (не использовать обычные механизмы сцепки).

[BDA]

Сообщение от Kronos913

Методами высокого уровня нужно было бы на каждом вставленном пробеле двигать всю строку

Нет. Например (может быть, что-то не учел):

Function InsertSpaces(const s: string; const piece_length: byte): string;
var
  len, len_div, len_mod, i, j, g: integer;
begin
  len := Length(s);
  if len <= piece_length then
  begin
    result := s;
    exit;
  end;
  len_div := len div piece_length;
  len_mod := len mod piece_length;
  SetLength(result, len + len_div - 1 + ord(len_mod <> 0));
  g := 1;
  j := 1;
  if len_mod <> 0 then
  begin
    Move(s[g], Result[j], len_mod);
    Inc(g, len_mod);
    Inc(j, len_mod);
    Result[j] := ' ';
    Inc(j);
  end;
  for i := 0 to len_div - 2 do
  begin
    Move(s[g], Result[j], piece_length);
    Inc(g, piece_length);
    Inc(j, piece_length);
    Result[j] := ' ';
    Inc(j);
  end;
  Move(s[g], Result[j], piece_length);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(InsertSpaces('1234567890', 3));
end;

Читается явно легче ассемблера. Ради интереса можно сравнить скорость высокоуровневой версии и ассемблерной.

[macomics]

function TestProc(str: String; insertAt: LongInt): String;
var
   i, size, count: LongInt;
begin
   size := Length(str);
   if ( size <= insertAt ) or ( insertAt <= 0 ) then Result := str else begin
      count := ( size - 1 ) div insertAt;
      SetLength(Result, size + count);
      while size >= Low(str) do begin
         for i := 1 to insertAt do begin
            if size >= Low(str) then Result[size + count] := str[size];
            dec(size);
         end;
         if size >= Low(str) then Result[size + count] := ' ';
         dec(count);
      end;
   end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(InsertSpaces('1234567890', 3));
end;

Если делать в обратном порядке, то выгладит даже проще.

[Kronos913]

Кстати, я пока не разобрался, как через asm работать с безлимитными строками. Точнее, считывать их я научился, а вот записывать - нет

Потому пользуюсь строками с ограничением в 255