首部 function AnsiUpperCaseFileName(const S: string): string; $'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, );
Memo1.Lines.Values'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, );
Memo1.Lines.Values'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, );
Memo1.Lines.Values'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, );
end;
///////End StringReplace
━━━━━━━━━━━━━━━━━━━━━
首部 function WrapText(const Line, BreakStr: string; const BreakChars: TSysCharSet; MaxCol: Integer): string; overload; $, MaxCol);
参考 function SysUtils.CharLength;function SysUtils.CompareText
例子 Memo1.Text := WrapText(Memo2.Text, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function FindCmdLineSwitch(const Switch: string; const Chars: TSysCharSet; IgnoreCase: Boolean): Boolean; overload; $));
Temp := TObject.Create;
FreeAndNil(Temp);
ShowMessage(Format('%p', ));
end;
///////End FreeAndNil
━━━━━━━━━━━━━━━━━━━━━
首部 function Supports(const Instance: IInterface; const IID: TGUID; out Intf): Boolean; overload; $