從edit輸入不限長度的字串，中間用各式符號隔開，如";"，用 stringlist將字串切割，然後從memo,listbox,showmessage之類的輸出，我要如何知道字串已經結束了呢?

你好，不了解你所謂的「如何知道字串結束了」的意思。在此，我給一個8年前寫的一個delphi自定function，看合不合用。現在我都是用bcb在寫程式，所以…只能幫一下下囉!

procedure TForm1.StrToStrList(myString: string;
trimed: boolean; myChar: Char;
var myStringList: TStringList);
var
i: integer;
tmpStr: string;
begin
tmpStr := '';
for i:=1 to Length(myString) do
begin
if trimed and (myString[i] = ' ') then
continue;
if myString[i]= myChar then
begin
myStringList.Add(tmpStr);
tmpStr := '';
end
else
tmpStr := tmpStr myString[i];
end;
myStringList.Add(tmpStr); // add last one
end;

使用例子:

StrToStrList(trim(Edit1.Text), true, ';', MyStringList); //傳入一個空的MyStringList
.... MyStringList.Text......

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

從edit輸入不限長度的字串，中間用各式符號隔開，如";"，用 stringlist將字串切割，然後從memo,listbox,showmessage之類的輸出，我要如何知道字串已經結束了呢?

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

TStringList.Count就是你切完之後的字串數量
TStringList[Count-1]就是最後的字串
不知您要的是不是這個??
===================引 用 文 章===================

從edit輸入不限長度的字串，中間用各式符號隔開，如";"，用 stringlist將字串切割，然後從memo,listbox,showmessage之類的輸出，我要如何知道字串已經結束了呢?