我要按下button 後改project1.exe 的formcaption
我原本form的caption是設定 版權屬於xxxxxx所有 要找到xxxxxx然後替換掉
但是如果xxxxxx的前後沒有空格就搜尋不到 請問各位大大是什麼原因 ?
還有一個問題是 要換成中文會整個caption變空白是什麼原因?
[code delphi]
var
f : file of byte ;
b : byte;
s,t : string;
i,j,k : integer;
ok : boolean;
begin
s:=edit1.Text; i:=length(s);
t:=edit2.Text; j:=length(t);
if i<>j then exit;
assignfile(f,'project1.exe');reset(f);
for i:= 0 to (filesize(f)-j) do begin
seek(f,i); read(f,b);
ok:= char(b)=s[1];
if ok then
for k :=2 to j do begin
read(f,b);
ok:= char(b)=s[k];
IF OK THEN showmessage(char(b));
if not ok then break;
end;
if ok then begin
showmessage(inttostr(i) '找到了');
seek(f,i);
for k:= 1to j do begin
b:= ord(t[k]);
write(f,b);
end;
end;
end;
closefile(f);
[/code]

編輯記錄

Hi,您好:
使用UltraEdit的Hex看了一下編譯後的執行檔,
版權屬於xxxxxx所有 的 xxxxxx 前後有沒有空格,其使用的編碼會不一樣....(怪怪的)
所以會找不到,
謝謝!

===================引 用 shawn850717 文 章===================

我要按下button 後改project1.exe 的formcaption
我原本form的caption是設定 版權屬於xxxxxx所有 要找到xxxxxx然後替換掉
但是如果xxxxxx的前後沒有空格就搜尋不到 請問各位大大是什麼原因 ?
還有一個問題是 要換成中文會整個caption變空白是什麼原因?
[code delphi]
var
f : file of byte ;
b : byte;
s,t : string;
i,j,k : integer;
ok : boolean;
begin
s:=edit1.Text; i:=length(s);
t:=edit2.Text; j:=length(t);
if i<>j then exit;
assignfile(f,'project1.exe');reset(f);
for i:= 0 to (filesize(f)-j) do begin
seek(f,i); read(f,b);
ok:= char(b)=s[1];
if ok then
for k :=2 to j do begin
read(f,b);
ok:= char(b)=s[k];
IF OK THEN showmessage(char(b));
if not ok then break;
end;
if ok then begin
showmessage(inttostr(i) '找到了');
seek(f,i);
for k:= 1to j do begin
b:= ord(t[k]);
write(f,b);
end;
end;
end;
closefile(f);
[/code]

請問可以教我怎麼看嗎? 謝謝你

Hi,您好:
您有安裝像 UltraEdit 可以檢視 Hex 的軟體嗎?
使用該軟體開啟您的 project1.exe, 並切換為 Hex 的檢視模式,
以 UltraEdit 為例,按
使用 Find 找 xxxxxx (Find ASCII 須打勾)

這是以 版權屬於 xxxxxx 所有 編譯的,

而這以 版權屬於xxxxxx所有 編譯的

順便作了一下以 版權屬於xxxxxxxx所有 編譯的

所以與空白無關,
至於Delphi是何原因要如此編譯,小弟也說不上來,
謝謝!


===================引 用 shawn850717 文 章===================
請問可以教我怎麼看嗎? 謝謝你

Sorry,不知如何貼圖,使用Google drive,如果看不到,請提供 Mail 信箱給我(我LKK了,還是習慣用Mail),謝謝!
===================引 用 blue 文 章===================
Hi,您好:
您有安裝像 UltraEdit 可以檢視 Hex 的軟體嗎?
使用該軟體開啟您的 project1.exe, 並切換為 Hex 的檢視模式,
以 UltraEdit 為例,按 顥示0101 的按鈕 https://drive.google.com/open?id=0B-BdHTknwBrpS2N6ako4RTA0SUU
使用 Find 找 xxxxxx (Find ASCII 須打勾)
https://drive.google.com/open?id=0B-BdHTknwBrpYm5ad0l1Wkp1ZUU
這是以 版權屬於 xxxxxx 所有 編譯的,
https://drive.google.com/open?id=0B-BdHTknwBrpbHVCNE1vQ2cwQjg
而這以 版權屬於xxxxxx所有 編譯的
https://drive.google.com/open?id=0B-BdHTknwBrpQ2pJeEJ6a2hzVmM
順便作了一下以 版權屬於xxxxxxxx所有 編譯的
https://drive.google.com/open?id=0B-BdHTknwBrpSThsdkxmVG1qb0k
所以與空白無關,
至於Delphi是何原因要如此編譯,小弟也說不上來,
謝謝!


===================引 用 shawn850717 文 章===================
請問可以教我怎麼看嗎? 謝謝你

感謝blue大 , 
我自己測試是6個以下都會變成x.x.x.x.x.x. ,
7個以上就會是xxxxxxx,
雖然不知道為什麼會這樣 但還是非常感謝!!