Em alguns momentos surge a necessidade de verificar se um determinado objeto existe, ou seja se já foi criado, principalmente quando se trabalha com criação dinâmica em tempo de execução, então vamos ao exemplo: - Vamos criar uma variável, um vetor do tipo caixa de texto: var Minha_caixa : array of TEdit; - Em seguida definir o tamanho desse vetor, no caso será dez: setLength(Minha_caixa, 10) - Agora iremos criar nossa caixa de texto: // lembrando que o vetor inicia em zero // logo o índice final é o tamanho total - 1 for vl_i := 0 to Length(Minha_caixa) -1 do begin Minha_caixa[vl_i] := TEdit.Create(self); with Minha_caixa[vl_i] do begin Parent := Self; Name := 'Caixa_N'+IntToStr(vl_i); Text := 'Esta é a '+IntToStr(vl_i)+' º caixa !'; ReadOnly := true; Height := 21; Width := ...
Desenvolvimento e Tecnologia da Informação
Boa dica sobre arquivo INI, vlw !!!
ResponderExcluirBoa função essa do instr, tinha visto ela no tifoun, mas depois percebi q foi vc quem colocou lá, depois t passo umas dicas q tenho aqui pra vc postar tbm, t+
ResponderExcluirEita deu uma saudade dos tempos de Pascal
ResponderExcluirquase q leio todo o post,
mas teu blog já está nos favoritos,
vou ficar lendo aos pouquinhos
inté