Сравнения строк

← →
4eshka) (2005-01-13 14:35) [0]

У кого какие идеи, нужно сравнить две строки не используя опреторы сравнения? Какии способы есть для этого? У кого какие идеи? У меня есть несколько реализаций. Нужно как можно запутанее :)

← →
Kerk © (2005-01-13 14:35) [1]

4eshka) (13.01.05 14:35)
без операторов сравнения ничего сравнивать невозможно

← →
Vovchik_A © (2005-01-13 14:36) [2]

Сравнивать будем посимвольно или просто длину ? :)

← →
Ega23 © (2005-01-13 14:41) [3]

У кого какие идеи?

У меня есть идея. Реализации - в студию!

← →
4eshka) (2005-01-13 14:43) [4]

Сравниваем s1 и s2
s1:="qqq"; s2:=edit1.text; a:=0; b:=0; for i:=1 to length(s1) do begin a:=a+ord(s1[i]); end; for i:=1 to length(s2) do begin b:=b+ord(s2[i]); end; try a:=123 div (a-b); ShowMessage("fu"); except ShowMessage("good") end;

← →
Kerk © (2005-01-13 14:44) [5]

4eshka) (13.01.05 14:43) [4]
а.. ты извраты имел ввиду.. так бы и сказал.. ща подумаю.. :)))))))))

← →
4eshka) (2005-01-13 14:47) [6]

> 4eshka) (13.01.05 14:43) [4]
> а.. ты извраты имел ввиду.. так бы и сказал.. ща подумаю..
> :)))))))))

:)

← →
pasha_golub © (2005-01-13 14:49) [7]

Может, я тупой, но ни черта не понял

← →
Kerk © (2005-01-13 14:52) [8]

a := 0; for i := 1 to Min(Length(s1),Length(s2)) do a := a + (Ord(s1[i]) - Ord(s2[i])); a := a + (Length(s1)-(Length(s2)); if Boolean(a) then ShowMessage("!!!");

← →
Kerk © (2005-01-13 14:54) [9]

4eshka) (13.01.05 14:43) [4]
Этот код - полный бред и работать не будет

← →
4eshka) (2005-01-13 14:57) [10]

Почему не будет работать? Проверь! У меня работает :D

← →
4eshka) (2005-01-13 14:59) [11]

> s1:="qqq";
> s2:=edit1.text;
> a:=0;
> b:=0;
> for i:=1 to length(s1) do
> begin
> a:=a+ord(s1[i]);
> end;
> for i:=1 to length(s2) do
> begin
> b:=b+ord(s2[i]);
> end;
>
> try
> a:=123 div (a-b); //на 0 делить нельзя, если (a-b)<>0 то и s1<>s2, если равны, то получается деление на 0
> ShowMessage("fu");
> except ShowMessage("good") end;

← →
Kerk © (2005-01-13 15:04) [12]

4eshka) (13.01.05 14:57) [10]
сравни строки

Roman Jankovski
Jankovski Roman

← →
}|{yk © (2005-01-13 15:05) [13]

А xor и деление любого числа на получившееся быстрее будет...

← →
4eshka) (2005-01-13 15:07) [14]

> 4eshka) (13.01.05 14:57) [10]
> сравни строки
>
> Roman Jankovski
> Jankovski Roman

мда, понятно теперь :) но идея понятна то

← →
Kerk © (2005-01-13 15:09) [15]

4eshka) (13.01.05 15:07) [14]
yes

← →
Ega23 © (2005-01-13 15:22) [16]

ss:="Declare @X int Set NoCount On "+ "exec @X=sp_Compare2Strings @Param1="+String1+", @Param2="+String2+ " Set NoCount OFF Select X=@X"; With Querty do begin Sql.Add(ss); Open; if FieldBuName("X").AsBoolean then ShowMessage("=") else ShowMessage("<>"); .....

:о)

← →
wl (2005-01-13 15:24) [17]

> Kerk © (13.01.05 14:52) [8]
этот код тоже не работает
например,
s1 := "123";
s2 := "3";

← →
4eshka) (2005-01-13 15:36) [18]

s1:="wwww"; s2:=edit2.text; assignfile(f,s1); rewrite(f); writeln(f,s1); closefile(f); assignfile(f,s2); {$I-} reset(f); {$I+} case IOResult of 0: ShowMessage("="); end;

← →
Kerk © (2005-01-13 15:43) [19]

wl (13.01.05 15:24) [17]
там xor нужен

← →
Kerk © (2005-01-13 15:49) [20]

хотя пофиг.. совсем сегодня думалка неработает..

← →
Kerk © (2005-01-13 15:51) [21]

хотя пофиг.. совсем сегодня думалка неработает..

← →
Zeqfreed © (2005-01-13 15:52) [22]

Вроде работает...

function IsEqual(s1, s2 : String) : boolean; var r, o1, o2 : Byte; i : Word; begin r := 0; Result := true; SetLength(s1, Max(length(s1), length(s2))); SetLength(s2, Max(length(s1), length(s2))); for i := 1 to Min(length(s1), length(s2)) do begin o1 := Ord(s1[i]); o2 := Ord(s2[i]); r := o1 xor o2; Result := not (Result and Boolean(r)); end; end;

← →
Zeqfreed © (2005-01-13 15:54) [23]

надеюсь Max без операций сравнивания можно писать?

← →
Sandman25 © (2005-01-13 15:55) [24]

procedure Test(const s1, s2: string); const Arr: array[-1..0] of string = ("<>", "="); begin with TStringList.Create do try Add(s1); ShowMessage(Arr[IndexOf(s2)]) finally Free end end;

Кто найдет условный оператор или операторы сравнения, пусть бросит в меня камень :)

... Нужно как можно запутанее :)

Видимо человек пишет крутую защиту крутой программы.
Забыв при этом, что после крутой и запутанной проверки строк (никому не нужной кстати) последует один простой и некрутой и незапутанный условный переход.

> Кто найдет условный оператор или операторы сравнения, пусть
> бросит в меня камень :)

А внутри TStringList.IndexOf можно искать?

function StrEQ(s1, s2: string): Boolean; function IsZero(i: Integer): Boolean; begin Result := Boolean((i - 1) shr 31); end; function EQStr(s1, s2: string): Boolean; var i, xr: Integer; begin xr := 0; for i := 1 to Length(s1) do Inc(xr, Byte(s1[i]) xor Byte(s2[i])); Result := IsZero(xr); end; begin Result := (IsZero(Length(s1) xor Length(s2))) and EQStr(s1, s2); end;

← →
4eshka) (2005-01-13 16:36) [31]

> один простой и некрутой и незапутанный условный переход.

Ты его для начала найди :))

> Забыв при этом

Здесь хоть слово про защиту программы было? НЕТ. Так что не нужно глупости говорить

> Sandman25 © (13.01.05 16:04) [28]
>
> Конечно, нет. А то мы так и до jnz доберемся :)

Было бы желание -- обойдёмся и без jnz.

function IsEqual(const S1, S2: String): Boolean; var L1, L2: Integer; begin L1 := Length(S1); L2 := Length(S2); Result := False; try L1 := L1 div (L1 xor L2) except Result := CompareMem(@S1[1], @S2[1], L1) end end.

А ещё лучше так:

function New_IsEqual(const S1, S2: String): Boolean; var L1, L2: Integer; begin {$B-} L1 := Length(S1); L2 := Length(S2); Result := CompareMem(@L1, @L2, SizeOf(Integer)) and CompareMem(@S1[1], @S2[1], L1) end.

Сравнения строк Найти похожие ветки