delphi源码_delphi源码加密

最佳答案本篇文章给大家谈谈delphi源码，以及delphi源码加密对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

百度安全验证

求一段delphi代码

procedure TForm1.Button1Click(Sender: TObject);var f:TextFile;s:string;begin OpenDialog1.Filter:='文本文件北(*.txt)|*.txt'; //过滤文件 Memo1.Lin加日战表轮际呼es.Clear;//清空memo if OpenDial织敌等五异沉至敌松选og1.Execute then begin AssignFile(f,OpenDialog1.FileName);包清副列越跟//打开一个文本文件。 Reset(f);//只读方式打开 while not Eof(f) do//文件没读完 begin Readln(f肉家画乙争,s);//读取一行 if Pos('ip',s)0 then Memo1.Lines.Add(s);//条件判断。这里用pos判断包含字符 ip end先牛影绝; CloseFile(来自f); end;end;procedure TForm1.Button2Click(Sender: TOb360问答ject);begin //把Memo里面的东感情率迅厂血吃企意西保存到一个新的文本文件理中去 Memo1.Lines.Sav保威须eToFile(ExtractFilePath(Application.ExeName)+'1.txt');end;{因为文本文件里面直接删除行不好操作，号子采取了一个变通的方法。先读取文本文件，进行判断，如果符合条件就保存到Memo里面去。最后把Memo里面的东西保存到一个指定的文件文件里面去。或者覆盖原来的文件。}