tstringlist

    0热度

    1回答

    我想用我的字符串列表在delphi中显示2个不同的结果。 如果索引小于1,它应该显示其他结果。 我总是得到List index exceeds the maximum error 继承人我的代码。 function TForm1.readTable: String; var ini: TIniFile; einträge: TStringList; begin t

    1热度

    1回答

    我想在我有这里的类中实现一些日志记录功能。基本上,我的想法是在包含日志的类中创建一个TStringList。我可以没有任何麻烦地做到这一点,但我的问题是如何在控件(TMemo或TListBox)能够动态显示包含表单的内容时将其暴露在类之外。我可以直接与类中的控件建立关联,但是我希望保持类不依赖于表单代码本身,并在创建该关联的类中创建一个过程。 基本上,如果我在我的课程中有LogFile:TStri

    0热度

    2回答

    我有一个很多属性的组件,其中许多属于类型。 例如: BackgroundStyle = [bsSolid, bsGradient, bsNone] BorderStyle = [bsNone, bsSingle, bsWide] 我建立一个表单,允许用户配置这些属性在运行时,我想动态填充一些下拉列表,而不是通过向他们的键入手。 这可能吗?谢谢!

    10热度

    3回答

    我存储在的TStringList字符串列表,我想将其转换成字符串用逗号分隔的,我使用下面的代码 channelList: TStringList; aCurrentChannel := Stringreplace(channelList.Text,Char(13)+Char(10),',',[rfReplaceAll]); ,但最后一个字符来作为,像1,2,是否有避免这种情况?

    0热度

    1回答

    我正在尝试读取值列表框中的ini文件。 下面的示例工作,但我不知道为什么。 ReadSectionValues包含ini行的字符串列表。 Rad Studio如何解析线条: ListValues->Names[i]是第一部分,ListValues->Values[ListValues->Names[i]]是第二部分? int i; try { //ShowMessage(List

    5热度

    4回答

    我有一个应用程序需要在TStringList中进行繁重的文本处理。基本上我需要用分隔符分割文本;例如,如果我有一个带有1000个字符的单线,并且此分隔符在此行中出现3次,那么我需要将它分成3行。分隔符可以包含多个字符,例如它可以是一个标签,如'[test]'。 我写了两个函数用两种不同的方法来完成这个任务,但两者在大量文本(通常超过2mbytes)上都很慢。 我怎样才能以更快的速度实现这个目标?

    4热度

    1回答

    我有一个字符串列表和它们将被替换的值。我试图将它们结合在一个列表中,如'O'='0',' .'='.', ...,所以我很容易编辑它并添加更多的替换对。 现在我可以把它最好的方法是: var ListaLimpeza : TStringList; begin ListaLimpeza := TStringList.Create; ListaLimpeza.Deli

    1热度

    1回答

    我在Delphi中做了一个简单的类定义,我想在类&中使用TStringList它是构造函数(所以每次创建对象时,都会传递一个StringList并且它对StringList数据做了一些神奇的事情,将字符串列表复制到它自己的内部字符串列表中)。我得到的问题是,当我尝试在类定义之前声明它“使用”的内容(因此它知道如何处理TStringList)时,它在编译时失败。但没有,它不知道TStringList

    0热度

    1回答

    in Firemonkey(XE5)我创建了一个带有TStringGrid的框架,并且想要添加一个 “过程ShowData(aClientSet:TClientSet);” 在这个过程中,客户端的行应该只与LiveBindings(TBindSourceDB?)一起显示,而不知道数据集和无设计器的其他内容? 请问,这怎么能在运行时完成? 如果数据集关闭并在框架外重新打开(如何触发TBindings

    1热度

    1回答

    我正在使用RAD Studio XE-5创建Android应用程序,但最近偶然发现了一个令人费解的错误。 TStringList.AddObject引发以下异常: Project Project3.apk raised exception class Segmentation fault (11). 我的代码是这样的 procedure TMainForm.FormCreate(Sender: