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

Comentários

Postagens mais visitadas deste blog

Detectar o encoding de um arquivo para não corromper ao transformá-lo

erro "ora-12154: tns: não foi possível resolver o identificador de conexão especificado"

Quebras de linha no Delphi 2010