sexta-feira, 25 de março de 2011

Laço for in no lazarus

Já faz um tempinho que saiu esse feature, mas eu nem fazia idéia. Talvez mais pessoas não saibam.

Agora já é possível usar o laço for... in no free pascal. Outras alterações previstas para a versão 2.5.x e muito bem vindas é a adição de generics e a nova sintaxe para classes, permitindo class vars e class properties.

Segue abaixo um exemplo do operador for...in usando TStringList e Arrays Dinâmicos.

procedure TForm1.Button1Click(Sender: TObject);
var
   lista: TStringList;
   vetor: array of string;
   s: string;
begin
     lista := TStringList.Create;
     lista.Add('Delphi');
     lista.Add('Lazarus');
     lista.Add('C#');
     lista.Add('Java');
     lista.Add('PHP');

     for s in lista do
         Memo1.Lines.Add(s); //ou showmessage(s)

     SetLength(vetor, 5);
     vetor[0] := 'Laranja';
     vetor[1] := 'Maçã';
     vetor[2] := 'Pera';
     vetor[3] := 'Uva';
     vetor[4] := 'Cajá';

     for s in vetor do
         Memo1.Lines.Add(s); //ou showmessage(s)


end;   

Have fun ;)

Nenhum comentário:

Postar um comentário

Postagens populares

Marcadores

delphi (60) C# (31) poo (21) Lazarus (19) Site aos Pedaços (15) sql (13) Reflexões (10) .Net (9) Humor (9) javascript (9) ASp.Net (8) api (8) Básico (6) Programação (6) ms sql server (5) Web (4) banco de dados (4) HTML (3) PHP (3) Python (3) design patterns (3) jQuery (3) livros (3) metaprogramação (3) Ajax (2) Debug (2) Dicas Básicas Windows (2) Pascal (2) games (2) linguagem (2) música (2) singleton (2) tecnologia (2) Anime (1) Api do Windows (1) Assembly (1) Eventos (1) Experts (1) GNU (1) Inglês (1) JSON (1) SO (1) datas (1) developers (1) dicas (1) easter egg (1) firebird (1) interfaces (1) introspecção (1) memo (1) oracle (1) reflexão (1)