TFindComponent

[QuickAndDirty]

Zitat von himitsu:

PS: Arrays haben auch einen Enumerator bekommen.

Delphi-Quellcode:

  for var S in ['aaa', 'bbb'] do 
    ShowMessage(S);

  //for var S in 'aaa,bbb'.Split([',']) do
  var L := 'aaa,bbb';
  for var S in L.Split([',']) do
    ShowMessage(S);

PS.
Ich glaube ich brauche eher ein MAP oder so

Delphi-Quellcode:

// ich muss das so schreiben
For var i:Integer := 0 to parser.TokenCount-1 do
  arr[i] :=  parser.FTokens[i].Token+'   '+ TokenIdToTokenString(parser.FTokens[i].TokenSQL);

//so ne art mehrfach enumerate
For var EFrom in parser.FTokens For var ETo in arr do
  ETo  :=  EFrom.Token+'   '+TokenIdToTokenString(EFrom.TokenSQL);

Wobei "ETo" ja quasi ein beschreibbarer Ort im Array sein muss.

Oder eben MAP

Delphi-Quellcode:

arr := parser.FTokens.map(Function(e:TTokenInfo):String 
                          Begin 
                            Result := E.Token+'   '+TokenIdToTokenString(E.TokenSQL) 
                          End);