老大仔 重新編輯於 2008-11-26 14:46:56， 註解 無‧
老大仔 重新編輯於 2008-11-26 14:53:43， 註解 無‧

您好,

雖然要處理這程式有別的方法, 但仍然用您的邏輯來和您討論.

我發覺原程式在巢狀結構上怪怪的, 會造成巢與巢交叉的現象.
我整理了一下, 改成如下 :
if FileExists('c:\test\新增文字文件.txt') then begin
sl := TStringList.Create;
sll := TStringList.Create;;
try
sl.LoadFromFile('c:\test\新增文字文件.txt');
for i := 0 to sl.Count - 1 do begin
y := pos('[', sl.strings[i]);
temp := sl.strings[i];
tmp := TStringList.Create; <--- 一直 create, 又沒用到, 照理第二次 create 時就會出錯, 但您程式這一句只走一次
while y <> 0 do begin <--- y 在這個 while 裏沒變過, 造成無限迴路
sj := copy(temp, pos('[', temp) 1, pos(']', temp) - pos('[', temp) - 1);
temp := copy(temp, pos(']', temp) 1, length(temp) - pos(']', temp));
if strisint(copy(sj, 1, 2)) and strisint(copy(sj, 4, 2)) then begin
end;
end;
end;
finally
end;
end;
紅字的部份是我發現不對的地方,
我實測的結果發現 y 在 while y<>0 do 內沒改變過, 一直跳不出來
-----------------------------------------------------
我用您的邏輯改寫了一下:
if FileExists('c:\test\新增文字文件.txt') then begin
sl := TStringList.Create;
sll := TStringList.Create;;
try
sl.LoadFromFile('c:\test\新增文字文件.txt');
for i := 0 to sl.Count - 1 do begin
temp := sl.strings[i]; // 對調
y := pos('[', temp); // 對調
// tmp := TStringList.Create; 註掉
while y <> 0 do begin
sj := copy(temp, pos('[', temp) 1, pos(']', temp) - pos('[', temp) - 1);
temp := copy(temp, pos(']', temp) 1, length(temp) - pos(']', temp));
if strisint(copy(sj, 1, 2)) and strisint(copy(sj, 4, 2)) then begin
// do something
end;
y := pos('[', temp); // 新增
end;
end;
finally // 往下調到這
end;
end;

您的程式還是會有巢狀結構交叉 的情形, 照理連 compile 都不過的.
我再稍改您的程式, 確定可以正確執行, 請您參考比對一下
(這個 project, 我只拉一個 tbutton, 其 click 事件就是您程式的部份)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function strisint(str: string): boolean;
begin
try
strtoint(str);
Result := true;
except
Result := false;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var sl, sll, tmp : tstringlist;
i, y : integer;
temp, sj : string;
begin
if FileExists('c:\test\新增文字文件.txt') then begin
sl := TStringList.Create;
sll := TStringList.Create;;
try
sl.LoadFromFile('c:\test\新增文字文件.txt');
for i := 0 to sl.Count - 1 do begin
y := pos('[', sl.strings[i]);
temp := sl.strings[i];
tmp := TStringList.Create;
while y <> 0 do begin
sj := copy(temp, pos('[', temp) 1, pos(']', temp) - pos('[', temp) - 1);
temp := copy(temp, pos(']', temp) 1, length(temp) - pos(']', temp));
if strisint(copy(sj, 1, 2)) and strisint(copy(sj, 4, 2)) then begin
showmessage(copy(sj, 1, 2)); // 新增測試用
showmessage(copy(sj, 4, 2)); // 新增測試用
end;
y := pos('[', temp);
end;
tmp.Free;
end;
finally // 修改到正確位置
end;
end;
end;

end.

老大仔 重新編輯於 2008-11-27 13:55:39， 註解 無‧