Funções no Delphi
// verifica se um componente já existe
function TForm.TestaComponente(Nome: String): boolean;
var i: integer;
begin
result := False;
for i := 0 to (Application.ComponentCount - 1) do begin
result := (Application.Components[i].Name = Nome);
if result then break;
end;
end;
//Inverte data
function TForm.InverteData(Data: TDateTime;sFormato:String='yyyy/mm/dd'): String;
begin
Result := FormatDateTime(sFormato,Data);
end;
//Substitui string
function TForm.SubstituiStr(Velho,Novo,Linha: String): String;
var t,p: Integer;
begin
t := Length(Velho);
p := Pos(Velho,Linha);
if p > 0 then begin
Delete(Linha,p,t);
Insert(Novo,Linha,p);
end;
Result := Linha;
end;
function TForm.SubstituiStr2(Velho,Novo,Linha: String): String;
var t,p: Integer;
begin
repeat
t := Length(Velho);
p := Pos(Velho,Linha);
if p > 0 then begin
Delete(Linha,p,t);
Insert(Novo,Linha,p);
end;
until p = 0;
Result := Linha;
end;