condef.pas

一个电力企业的后台管理程序

unit Condef;

interface
uses SysUtils;

type
  TFileFrm=class
  public
    FInfoType:integer;
    FInfoHost:string;
    FInfoVirtualDev:string;
    FInfoFile:string;
  end;

var
  FileFrm:TFileFrm;
  Function StrReplace(SourceStr:String;FindStr:String;ReplaceStr:String):String;

implementation

//////////////////////////////////////////////////////////////////////////////
//将一个安符串中的一个子串用加一个串来代替 应用SysUtils单元
Function StrReplace(SourceStr:String;FindStr:String;ReplaceStr:String):String;
Var
    Pos_i   :Integer;
    TempStr , ResultStr :String;
    SourceStr_Length , FindStr_Length: Integer;
Begin
    ResultStr := '';
    TempStr   := SourceStr;
    SourceStr_Length    := Length(TempStr);
    FindStr_Length      := Length(FindStr);
    while  SourceStr_Length > 0 do
    begin
        Pos_i       := Pos(FindStr,TempStr);
        ResultStr   := ResultStr + Copy(TempStr,1,Pos_i - 1 );
        If Pos_i > 0 then
        Begin
            ResultStr   := ResultStr + ReplaceStr ;
            Pos_i := Pos_i + FindStr_Length -1  ;
            SourceStr_Length := SourceStr_Length - Pos_i ;
            TempStr    := Copy(TempStr,Pos_i + 1 ,SourceStr_Length );
        End
        Else
        Begin
            ResultStr   := ResultStr + TempStr;
            TempStr := '';
            SourceStr_Length :=0;
        End;
    End;
    Result := ResultStr;
End;

end.