吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 1075|回复: 7
收起左侧

[求助] Delphi如何比较出不同的字符串?(已解决,谢谢!

[复制链接]
冥界3大法王 发表于 2020-2-13 09:08
本帖最后由 冥界3大法王 于 2020-2-13 09:55 编辑

有字符串1 :48 83 EC 28 E8 07 0A 00 00 48 83 C4 28
有字符串2 :48 84 EC 28 E8 07 0A 00 00 48 83 C4 28
有字符串3 :48 85 EC 28 E8 07 0A 00 00 48 83 C4 28

要求: 进行比较,把不同的那个地方,换成??

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

JuncoJet 发表于 2020-2-13 09:12
和C语言一样吧,for然后三个指针。if比较不同处赋值??
 楼主| 冥界3大法王 发表于 2020-2-13 09:16
JuncoJet 发表于 2020-2-13 09:12
和C语言一样吧,for然后三个指针。if比较不同处赋值??

@JuncoJet
我去发个悬赏,能给俺编个delphi的实现?
JuncoJet 发表于 2020-2-13 09:23
冥界3大法王 发表于 2020-2-13 09:16
@JuncoJet
我去发个悬赏,能给俺编个delphi的实现?

呃,我不写delphi的。如果要完整实现的话可以帮你问问写delphi的朋友。反正思路一样的。
zsky 发表于 2020-2-13 09:37
应该有专门比较字符串的工具吧。。
xuanle6 发表于 2020-2-13 09:41
Delphi7 code

procedure TfrmMain.Button1Click(Sender: TObject);
var a,b,c:string;
    i:Integer;
begin
    a:='48 83 EC 28 E8 07 0A 00 00 48 83 C4 28';
    b:='48 84 EC 28 E8 07 0A 00 00 48 83 C4 28';
    c:='48 85 EC 28 E8 07 0A 00 00 48 83 C4 28';
    Memo1.Text := a;
    Memo1.Lines.Add(b);
    Memo1.Lines.Add(c);
    for i:=1 to Length(a) do begin
        if a[i]<>b[i] then begin
            b[i]:='?';
        end;
        if a[i]<>c[i] then begin
            c[i]:='?';
        end;
    end;

    Memo1.Lines.Add('');
    Memo1.Lines.Add('');
    Memo1.Lines.Add(b);
    Memo1.Lines.Add(c);
end;

免费评分

参与人数 1吾爱币 +4 热心值 +1 收起 理由
冥界3大法王 + 4 + 1 谢谢@Thanks!

查看全部评分

cxj98 发表于 2020-2-13 22:02
怎么感觉像是在写破解补丁
 楼主| 冥界3大法王 发表于 2020-2-14 06:27
cxj98 发表于 2020-2-13 22:02
怎么感觉像是在写破解补丁

@cxj98
向你们学习,写通杀辅助啊。
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2025-1-14 02:37

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表