Hi  all

假設 使用一個Memo 載入一個文字檔，想殺除其中重覆的字元，然後另存一區來做處理
文字檔內容可能中英文交雜，不過字數最多255個，該如何處理呢??

謝謝你的閱讀^^

用迴圈一次一 Byte, 遇中文 Lead Byte 則抓2 Bytes,
與新的 AnsiString 比對, 新字則加入新的 AnsiString, 否則不加入,
(但遇 Char(10), Char(13) 則一律加入)
最後用新的 AnsiString 替換掉 TMemo->Lines.

謝謝你的答案， 我這邊用了BCB2010 ，所以元件已有支持unicode
所以用下列程式可以完成需求

[code cpp]
for(i = 0; i < Font_MemoFontString->Lines->Count; i )
{
sLine = Font_MemoFontString->Lines->Strings[i];

iFontLen = sLine.Length();

for(j = 1; j <= iFontLen; j )
{
bRepeatCode = 0;

sFont = sLine.SubString(j, 1);

if(sFont == " ") continue;

for(k = 0; k < iFontNum; k )
{
if(pstrFontCode[k] == sFont)
{
bRepeatCode = 1;
break;
}
}

if(!bRepeatCode)
{
pstrFontCode[iFontNum ] = sFont;
}
}
}
[/code]