论坛 › Delphi交流 › 求助一个小软件

失色的。墨 发表于 2017-2-24 10:32:10

求助一个小软件

求助一个小软件，软件要求：输入两个数据对比（可以包含大小写字符），一致下方则显示绿色底纹的PASS，不一致则显示红色底纹的FAIL,对比结果会产生log记录，可以发我邮箱84399957@qq.com

失色的。墨 发表于 2017-2-24 10:34:27

最好是可以设置两个数据的字符长度

lumber2388779 发表于 2017-2-24 11:45:00

你说的基本就是Beyond Compare的功能- -这个可不是小软件啊

失色的。墨 发表于 2017-2-24 15:49:47

lumber2388779 发表于 2017-2-24 11:45
你说的基本就是Beyond Compare的功能- -这个可不是小软件啊

我是说帮忙用Delphi写个简单的就这一个功能的小程序就行，只需要这个功能，我在工厂上班，需要程序对比产品背贴上的SN号码和彩盒上的是否一致，而且要有对比记录，最好是还能判断是否一组数据是否在某个区间最好不过

jerryxjr1220 发表于 2017-2-26 21:36:56

失色的。墨 发表于 2017-2-24 15:49
我是说帮忙用Delphi写个简单的就这一个功能的小程序就行，只需要这个功能，我在工厂上班，需要程序对比产 ...

用python写很容易30行代码足够可以搞定了，delphi还不会{:5_97:}

失色的。墨 发表于 2017-2-28 09:14:01

jerryxjr1220 发表于 2017-2-26 21:36
用python写很容易30行代码足够可以搞定了，delphi还不会

python也行但是要有GUI界面额

陽光ㄟ有點冷 发表于 2017-6-1 12:02:05

只接搞个
if edit1.text=edit2.text then
begin
绿色代码
end
else
begin
红色代码
end
这样不行吗

陽光ㄟ有點冷 发表于 2017-6-1 12:18:14

procedure TForm1.btn1Click(Sender: TObject);
var
i:Integer;
s1,s2:string;
begin
mmo1.Clear;
s1:=edit2.Text;
s2:=edit3.Text;
for i:=0 to Length(s1) do
begin
    if s1=s2 then
    begin
      edit2.Color:=clGreen;
      edit3.Color:=clGreen;

    end
    else
    begin
      edit2.Color:=clRed;
      edit3.Color:=clRed;
      mmo1.Lines.Add('第一组数第'+inttostr(i)+'位不相同,不同结果为：'+s1);
      mmo1.Lines.Add('第二组数第'+inttostr(i)+'位不相同,不同结果为：'+s2);
      mmo1.Lines.Add('');
    end;

end;
end;

陽光ㄟ有點冷 发表于 2017-6-1 12:19:34

猪哥不亮 发表于 2018-1-16 16:56:18

失色的。墨 发表于 2017-2-24 15:49
我是说帮忙用Delphi写个简单的就这一个功能的小程序就行，只需要这个功能，我在工厂上班，需要程序对比产 ...

python 不会打包。有VB要不要

查看完整版本: 求助一个小软件