程序功能失效后，如何重新载入这一段代码？

[chujoy]

function TForm2.ReadFromPipe(Pipe: THandle): string;
const
ReadBuffer = 4096;
var
Buffer: PAnsiChar;
BytesRead: DWORD;
begin
Result := '';
if GetFileSize(Pipe, nil) = 0 then
Exit;

代码省略100行。。。
。。。。
。。。。
。。。。
。。。。
由于某种功能使用后导致该代码失效，只能重启程序来使用，
问题：
程序功能失效后，如何重新载入这一段代码？需要详细的。
function TForm2.ReadFromPipe(Pipe: THandle): string;

做成一个按钮，点了就能重载，这样。

[chujoy]

做一个按钮，点击一下就能重载那样，，

就是重新载入一次function TForm2.ReadFromPipe(Pipe: THandle): string;

[ooolinux]

try。。。catch？

[p47655255]

界面上放一个button 然后双击 在buttonclick 里面 写ReadFromPipe(Pipe）；
是这意思吗？

[BlueStorm]

源代码应该有问题，你还不如先解决源代码的问题，而不是只是想着怎么自动重启。 下面的代码仅供参考：

function ReadPipe(Pipe: THandle; var BytesRemain: Integer): AnsiString;
  //通过管道读取Cmd控制台的输出，BytesRemain为未读的字节数
var
  TextBuffer: array[1..32767] of AnsiChar;
  BytesRead : LongWord;
  PipeSize  : Cardinal;
begin
  Result := '';
  PipeSize := Sizeof(TextBuffer);
  //检查管道是否有东西可读
  PeekNamedPipe(Pipe, nil, PipeSize, @BytesRead, @PipeSize, @BytesRemain);
  if BytesRead > 0 then
  begin
    ReadFile(Pipe, TextBuffer, PipeSize, BytesRead, nil);
    Result := AnsiString(TextBuffer); //TextBuffer内含的是AnsiString字符串
    SetLength(Result, BytesRead);
  end;
end;

[Frank.WU]

try ... except ... //此处处理 end;

[doloopcn]

将代码放入线程，
建立线程使用时间 状态字：timeuse:Double;
新建监控线程，判断if timeuse>timeout then begin t1.termiante; t1:=Tt1.create; t1.resume; end;

[morninggood]

线程中处理是可以的。

[lyhoo163]

代码的重启，首先要对错码出错，进行判断，是功能性还是坏死性的错误。
功能性错误，是由于环境造成的，可以定时反复，测试执行。否则不能重复的。
比较好的方式：
try
...
except
... // 出错处理
end;