Active News - Nº 44  - www.activedelphi.com.br 

  Adicionando em uma listbox:

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    table1.getfildnames(listbox1.items);  
  end;

-

  Se você já desenvolveu uma aplicação MDI com um formulário MDIChild que tem que ser exibido em estado Maximizado (WindowState=wsMaximized), provavelmente você já se deparou com aquele deselegante problema em que o usuário acompanha a maximização do seu formulário. Para evitar isto, faça o seguinte: 

  Antes de criar o seu formulário para a exibição, utilize LockWindowUpdate(Handle); 
  Após a criação do formulário, utilize LockWindowUpdate(0); 
  Com isto, você dará um efeito mais profissional às suas aplicações. 

  Exemplo: 

  procedure MainForm.ItemArqCadFor(Sender: TObject);
  begin
    LockWindowUpdate(Handle);
    with TFrmCadFor.Create(self) do Show;
    LockWindowUpdate(0);
  end;

  uses ddeman; 

  function GetURL(Service: string): String; 
  var 
    ClDDE: TDDEClientConv; 
    temp:PChar; 
  begin 
    Result := ''; 
    //create a new DDE Client object 
    ClDDE:= TDDEClientConv.Create( nil ); 
    with ClDDE do 
    begin 
      SetLink(Service,'WWW_GetWindowInfo'); 
      temp := RequestData('0xFFFFFFFF'); 
      Result := StrPas(temp); 
      StrDispose(temp); 
      CloseLink; 
    end; 
    ClDDE.Free; 
  end; 

  procedure TForm1.Button1Click(Sender: TObject); 
  begin 
    ShowMessage(GetURL('IExplore')); 
  end;

  var  WTEXTO : String;
  Begin
    // passa o texto para a variável
    WTEXTO := 'TESTE DA FUNCAO STRINGREPLACE';
    // substitui a(s) palavra(s) 'TESTE' por 'EXIBICAO'
    WTEXTO := StringReplace(WTEXTO,'TESTE','EXIBICAO',[rfReplaceAll])
    // Exibe o resultado
     Application.MessageBox(pchar(WTEXTO),'Exibindo',MB_ICONWARNING +MB_OK);
  end;

  {Adiciona à hora atual um número de horas determinado. Caso este número seja negativo, ele subtrairá da hora atual}

  function AdicionaHora(TimeAdd: Integer) : String;

  Var
    Horas,Min,SomaHoras,SomaMin : Integer;
    S, S1 : String;
  begin
    Horas := Strtoint(Copy(TimetoStr(Time),1,2))+ TimeAdd;
    Min := Strtoint(Copy(TimetoStr(Time),4,2))+ TimeAdd ;
    SomaHoras := SomaHoras+Horas;
    SomaMin := SomaMin + Min;
    If SomaMin > 59 Then
    begin
      if SomaMin mod 60 = 0 Then
      begin
        Somahoras := Somahoras+(Somamin div 60);
        Somamin := 0;
      end
      else
      begin
        SomaHoras := SomaHoras + (SomaMin div 60);
        SomaMin := SomaMin mod 60;
      end;
    end;
    If Somamin = 0 Then
    begin
      S := '00';
    end
    else
    begin
      S := InttoStr(Somamin);
    end;
    If Length(InttoStr(SomaHoras)) = 1 Then
    begin
      S1 := Concat('0',InttoStr(Somahoras));
    end
    else
    begin
      S1 := InttoStr(Somahoras);
    end;
    Result := Concat(S1,':',S,':00');
  end;

     
  for x := 1 to 10 do
  for y := 1 to 10 do
  if array[x] < array[y] then begin
  varaux := array[y];
  array[y] := array[x];
  array[x] := varaux;
  end;
  Consiste no seguinte:

  Para cada item do vetor é verificado todos os outros, se for menor faz a troca.

  function JTipoArquivo(Nome: String): String;
  var
    SR: TSearchRec;
    I: integer;
  begin
    I := FindFirst(Nome+'.*', faAnyFile, SR);
    if I = 0 then
      Result := copy(Sr.Name,Pos('.',Sr.Name),4)
    else
      Result := '';
  end;

  Modo de Usar:
    Label1.Caption := JTipoArquivo('c:\Project1')

  Neste exemplo se existisse um arquivo Project1.exe na Raiz ele retornaria o ".exe", caso não, retorna uma string nula.

-

          Repasse este News para seus amigos(as)...

          Até a próxima semana !

          EQUIPE  ACTIVEDELPHI

          www.activedelphi.com.br

          info@activedelphi.com.br