小编sou*_*her的帖子

我想编辑一个文本文件.如果我读了一个特殊的行(让我们说// - 开始在这里编辑文本 - //)然后在这行后我想插入几行,但我不想覆盖现有的行.用delphi可以吗？谢谢!

示范文本:

这个

是一个文件

带有文字

// - 开始在这里插入文字 - //

两者之间没什么

编辑后的示例文本:

这个

是一个文件

带有文字

// - 开始在这里插入文字 - //

现在有一些东西

之间

两者之间没什么

g'morning!

我填充一个字典TDictionary<String, TStringlist>(delphi-collections-unit),字符串作为值,几个字符串作为值.就像是:

• 名字=约翰,丽莎,斯坦
• 技能=读,写,说
• 年龄= 12,14,16

(当然没有",").我需要的是迭代这个字典并用键乘以值.输出应该是这样的

• names = john skills =读取年龄= 12
• names = john skills =读取年龄= 14
• names = john skills =读取年龄= 16
• names =约翰技能=写年龄= 12
• names =约翰技能=写年龄= 14
• names =约翰技能=写年龄= 16
• ...
• names = lisa skills =读取年龄= 12
• ...
• names = stan skills = speak age = 16

所以每一个组合.我怎么能这样做？键的数量是动态的,tstringlist的大小也是动态的.谢谢!现在已经解决了......

现在问题的范围.以下是填写字典的程序.subsplits和splitstring是字符串列表,在过程结束时释放.在程序块之后创建了dict(在main中它是如何被调用的？),fill-method被调用然后我想像代码示例那样进行递归但是dict中没有值... .

while not Eof(testfile) do
  begin
    ReadLn(testfile, text);
    if AnsiContainsStr(text, '=') then
    begin
      Split('=', text, splitarray);
      splitarray[0] := trim(splitarray[0]);
      splitarray[1] := DeleteSpaces(splitarray[1]);
      if AnsiStartsStr('data', …