各位大大好：
小弟想寫一個可以一直不斷比對字串的程式，
我的程式只能比對第一筆相同的資料，
假使有多個重複情形，
要如何寫會比較好，
我只有想到最原始的方法，
a=Tempfile->Strings[i];
b=Tempfile->Strings[i 2];
c=Tempfile->Strings[i 4];
...
int x=AnsiCompareText(a,b);
int y=AnsiCompareText(a,c);
...
不斷的加下去，假使有一百行重複，我就要寫死了～
所以請教有沒有哪位大大，
提供我一個方法，謝謝！

我的txt資料為：
aaaaaaaa
111
bbbbbbb
222
cccccccc
222
ddddddd
333
eeeeeee
333
ggggggg
333
hhhhhhh
444
kkkkkkkk
555
ppppppp
555
qqqqqqq
666




<textarea class="cpp" rows="10" cols="60" name="code"> OpenDialog1->DefaultExt = ".txt"; OpenDialog1->Filter = "test (*.txt)|*.txt"; OpenDialog1->Options << ofOverwritePrompt << ofFileMustExist; if (OpenDialog1->Execute()) { TStringList *Tempfile=new TStringList; Tempfile->LoadFromFile(OpenDialog1->FileName); if(iCount-2) { a=Tempfile->Strings[i]; b=Tempfile->Strings[i 2]; int x=AnsiCompareText(a,b); //可以比對第一筆相同的資料 if(x==0) { c=Tempfile->Strings[i 1];//同切層的第二筆資料 Memo1->Lines->Add(c); } } } </textarea>

希望沒誤解你的意思，大概就這樣，再調整一下即可

<textarea class="vb" rows="10" cols="60" name="code">procedure TForm1.Button1Click(Sender: TObject); var i,j,x : Integer; begin Memo2.Lines.Clear; for i := 0 to Memo1.Lines.Count - 1 do begin for j := i 1 to Memo1.Lines.Count - 1 do begin x := AnsiCompareText(Memo1.Lines.Strings[i],Memo1.Lines.Strings[j]); if x = 0 then memo2.Lines.Add(Memo1.Lines.Strings[i] '=' Memo1.Lines.Strings[J]) else memo2.Lines.Add(Memo1.Lines.Strings[i] '!=' Memo1.Lines.Strings[J]) end; end; end; </textarea>
Fishman

------
Fishman

謝謝你的指導～