Pular para o conteúdo principal

Postagens

Mostrando postagens de junho, 2011

Curso de Introdução ao Free Pascal/Lazarus - Gratuito

Desenvolver aplicações usando um IDE como o Lazarus, pressupõe conhecimento da linguagem de programação subjacente. Pois a criação de um programa sempre irá precisar que se escreva algum código, principalmente para os eventos. No caso do Lazarus estamos falando do Free Pascal. Este é um curso introdutório ao Free Pascal oferecido na modalidade à distância e está organizado em oito módulos: 1. Princípios básicos, tipos, variáveis, constantes e comando de atribuição 2. Comandos condicionais (if) 3. Comandos de repetição (while, repeat e for) 4. Tipos definidos pelo usuário (subrange, set, enumerados, arrays, registros) 5. Ponteiros 6. Procedimentos e funções 7. Manipulação de strings 8. Classes e objetos O curso será ministrado no ambiente virtual de aprendizagem Moodle . É uma ferramenta voltada para ensino à distância com todos os recursos de um ambiente dessa natureza: chat, fórum, exercícios, questionários, etc. Caso você tenha interesse em fazer o curso, faça sua pré-ins

Free Pascal - Usando TList

A classe TList é usada para gerenciar uma coleção de ponteiros, com a grande vantagem de ser dinâmica. Ela dispõe de métodos para fazer busca na lista e ordenar os elementos, entre outros. No exemplo abaixo fazemos uso de alguns desses métodos. unit Unit1; {$mode objfpc}{$H+} interface uses   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type   TContato = class     private       NomeContato     : String;       TelefoneContato : String;     public       property Nome : String           read NomeContato;       property Telefone : String           read TelefoneContato;       constructor Create(const pNomeContato       : String;                          const pTelefoneContato   : String);   end;   { TfrmTlist }   TfrmTlist = class(TForm)     Button1: TButton;     ListBox1: TListBox;     procedure Button1Click(Sender: TObject);   private     { private declarations }     Agenda : TList;     procedure MostraAgenda;   public     { public declarations }