procedure TfrmFilterTopTidByTopOutSidList.Button1Click(Sender: TObject); var I: Integer; top_out_sid_list_str: string; begin top_out_sid_list_str := ''; ShowMessage(IntToStr(TopOutSidList_mmo.Lines.Count)); for I := 0 to TopOutSidList_mmo.Lines.Count - 1 do begin if I <> 0 then begin top_out_sid_list_str := top_out_sid_list_str + ',' + TopOutSidList_mmo.Lines.Strings[I]; end else begin top_out_sid_list_str := TopOutSidList_mmo.Lines.Strings[I]; end; end; ShowMessage(top_out_sid_list_str); end;
TopOutSidList_mmo.Lines.Strings[I];
本文来自博客园,作者:del88,转载请注明原文链接:https://www.cnblogs.com/del88/archive/2012/12/10/2811009.html