🚀 go-pugleaf

Dnia Thu, 19 Jan 2012 15:33:53 +0100, Arivald napisał(a):

>>> {
>>> int i;
>>> ...
>>> }
>>>
>>> Naprawdę chcesz porównywać funkcje zagnieżdżone do powyższego ???
>>
>> Tak sie ostatnio bawie z anonymousami i patrze co mozna z nimi zrobic i
>> przyokazyjnie chcialem pokazac takie cos:
>>
>>
>> var
>>   ZmiennaLokalna : Integer;
>> begin
>> {...kod...}
>>
>> (procedure
>>   var
>>    li : Integer;
>>   begin
>>    {tu jakis kod korzystajacy z "li" i zmiennych wyzszej widocznosci}
>>   end)();
>>
>> {tutaj juz brak widocznosci "li"}
>>
>> {...kod...}
>> end;
>>
>>
>> Czyli da sie :-P
>>
> 
> Da się. Ale ile to pisania, w porównaniu do scope'a z javy czy C (tylko 
> dwa nawiasy).

A jeszcze moze dodam ciekawa rzecz, tym "mykiem" mozna zrobic cos czego
klamerki z C++ nie dadza:

var
 SL : TStringList;
begin
 SL := GetStringListWithContent;
 result := 'Zawartosc listy: [' + 
    (function (Str : TStrings) : string
     var
      s : string;
     begin
      for s in Str do s := s + CRLF;
      result := s;
     end;
    )(SL) + ']';
 SL.Free;
end;

-- 
pozdro
R.e.m.e.K