Funções no Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta dica algumas funções no Delphi, como p.ex.: verificar se um componente já existe.

// 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;


function TForm.InverteData(Data: TDateTime;sFormato:String='yyyy/mm/dd'): String;
begin
  Result := FormatDateTime(sFormato,Data);
end;


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;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?