Форум программистов [Powered by Invision Power Board]

Цитата(delphixxx @ 28.3.2006, 19:59

)

Вот и желателбно чтобы это было на ассемблере так как в моём проекте очень важна скорость.

Код


var
  s1,s2: String;
begin
  s1 := '2:145:165';
  s2 := '1:500:660';
  if s1>s2 then ShowMessage('s1>s2');

Цитата(delphixxx @ 28.3.2006, 23:14

)

не всё так просто как вы думаете, тут полюбому нужно разбивать строки и сравнивать цыфры, ибо
если дейсвовать по вашему методу то например '12' < '4' .

Цитата(Демо @ 29.3.2006, 11:43

)

А где было написано, что значность может быть разная?

Цитата(delphixxx @ 28.3.2006, 19:59

)

числовые значения перед разделитетлем и после, могут быть любой величины.

Код


var
  s1,s2: String;
i: integer;
begin
  s1 := '2:145:165';
  s2 := '1:500:660';
  i:=AnsiStrComp(Pchar(s1),Pchar(s2));
  if i>0 then ShowMessage('s1>s2')
else if i<0 then ShowMessage('s1<s2')
else ShowMessage('s1=s2');

Код


//константа - разделитель
const schar : char = ':';
//функция для разбивки строк, возвращает true если удалось отделить подстроку, обрезает исходную строку
function sxpld(var s, substr : string) : boolean;
  var vpos : integer;
  begin
  vpos := pos(schar, s);
  if length(s) = 0 then
    begin
    result := false;
    exit;
    end;
  result := true;
  if vpos > 0 then
    begin
    substr := copy(s, 1, vpos-1);
    if length(substr) = 0 then
      begin
      result := false;
      exit;
      end;
    s:=copy(s, vpos+1, length(s)-vpos);
    end else begin
    substr := s;
    s := '';
    end;
  end;
//Функция для сравнения возвращает 0 если строки равны, 1 если больше строка 1, 2 если больше строка 2.
//если не возникло ошибок, то code = 0
function scmp(s1, s2 : string; var code : integer) : integer;
  var str : string;
      ds1, ds2 : array[1..3] of string;
      di1, di2 : array[1..3] of integer;
      i : integer;

  begin
  code := 0;
  result := 0;
  //Разбиваем первую строку
  str := s1;
  for i := 1 to 3 do
   if not sxpld(str, ds1[i]) then
      begin
      code := -1;
      exit;
      end;
  if length(str) > 0 then
    begin
    code := -1;
    exit;
    end;
  //Разбиваем вторую строку
  str := s2;
  for i := 1 to 3 do
   if not sxpld(str, ds2[i]) then
      begin
      code := -1;
      exit;
      end;
  if length(str) > 0 then
    begin
    code := -1;
    exit;
    end;
  //Преобразуем строки в целый тип
  for i := 1 to 3 do
    begin
    val(ds1[i], di1[i], code);
    if code <> 0 then exit;
    val(ds2[i], di2[i], code);
    if code <> 0 then exit;
    end;
  //сравниваем
  i:=1;
  while i<=3 do
    begin
    if di1[i] > di2[i] then
      begin
      result := 1;
      exit;
      end;
    if di2[i] > di1[i] then
      begin
      result := 2;
      exit;
      end;
    inc(i);
    end;
  end;

{$R *.dfm}
//пример сравнения
procedure TForm1.Button1Click(Sender: TObject);
var res, code : integer;
    str : string;
begin
res := scmp(edit1.Text, edit2.Text, code);
if code = 0 then
 begin
 case res of
   0: str:='строки равны';
   1: str:='строка 1 больше';
   2: str:='строка 2 больше';
   end;
 label1.Caption := str;
 end else label1.Caption := 'ошибка сравнения');
end;

Код

function CompDigStr(s1, s2: string): integer;
  function ModStr(s:string): string;
  var
    i: integer;
    c: integer;
  begin
    c := 0; result := s;
    for i := Length(s) downto 1 do
      if s[i] = ':' then begin
        insert(chr(c+48), result, i+1);
        c := 0;
      end else inc(c);
    result := chr(c+48) + result;
  end;
begin
  result := CompareStr(ModStr(s1), ModStr(s2));
end;

Код

ShowMessage(IntToStr(CompDigStr('2:1450:165','12:500:660')));

Цитата(Snowy)

Возвращает -1, если s1<s2; 0, если s1=s2; 1, если s1>s2

Цитата(Delphi Help)

CompareStr compares S1 to S2, with case-sensitivity. The return value is less than 0 if S1 is less than S2, 0 if S1 equals S2, or greater than 0 if S1 is greater than S2. The compare operation is based on the 8-bit ordinal value of each character and is not affected by the current locale.

Код


function CompareStr(const S1, S2: string): Integer; assembler;
asm
          PUSH    ESI
          PUSH    EDI
          MOV     ESI,EAX
          MOV     EDI,EDX
          OR      EAX,EAX
          JE      @@1
          MOV     EAX,[EAX-4]
@@1:    OR      EDX,EDX
          JE      @@2
          MOV     EDX,[EDX-4]
@@2:    MOV     ECX,EAX
          CMP     ECX,EDX
          JBE     @@3
          MOV     ECX,EDX
@@3:    CMP     ECX,ECX
          REPE    CMPSB
          JE      @@4
          MOVZX   EAX,BYTE PTR [ESI-1]
          MOVZX   EDX,BYTE PTR [EDI-1]
@@4:    SUB     EAX,EDX
          POP     EDI
          POP     ESI
end;