求助一个小软件

失色的。墨

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

失色的。墨

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

lumber2388779

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

失色的。墨

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

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

jerryxjr1220

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

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

失色的。墨

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

python也行但是要有GUI界面额

陽光ㄟ有點冷

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

陽光ㄟ有點冷

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[i]=s2[i] then
    begin
      edit2.Color:=clGreen;
      edit3.Color:=clGreen;

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

  end;
end;

陽光ㄟ有點冷

猪哥不亮

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

python 不会打包。有VB要不要