Search results for 'C# foreach'. 1 post(s) found.
- 2007/10/04 Implementing C#'s foreach loop in Delphi 8
In C# the foreach statement repeats a group of embedded statements for each element in an array or an object collection. Delphi 8 does not have an eqivalent of the foreach statement. Let's see how to code a foreach statement in Delphi...
First, here's a simple sample C# code:
foreach (TMyObject myObject in AnArrayList) {
AnIntValue = MyObject.MyValue;
}
Where TMyObject class is declared as:
TMyObject = Class(TObject)
public
MyField : integer;
constructor Create(AValue:integer) ;
end;
constructor TMyObject.Create(AValue: integer) ;
begin
inherited Create;
MyField := AValue;
end;
AnIntValue = MyObject.MyValue;
}
Where TMyObject class is declared as:
TMyObject = Class(TObject)
public
MyField : integer;
constructor Create(AValue:integer) ;
end;
constructor TMyObject.Create(AValue: integer) ;
begin
inherited Create;
MyField := AValue;
end;
Here's the "same code" in Delphi:
var
MyObject : TMyObject;
AnArrayList : ArrayList;
Enum: IEnumerator;
j:integer;
begin
AnArrayList := ArrayList.Create;
AnArrayList.Add(TMyObject.Create(2004)) ;
AnArrayList.Add(TMyObject.Create(1973)) ;
AnArrayList.Add(TMyObject.Create(2000)) ;
AnArrayList.Add(TMyObject.Create(1998)) ;
//FOR EACH
Enum := AnArrayList.GetEnumerator;
while Enum.MoveNext do
begin
MyObject := TMyObject(Enum.Current) ;
Response.Write(MyObject.MyField.ToString + '<br>') ;
end;
// OR USING ITERATION
for j:= 0 to -1 + AnArrayList.Count do
begin
MyObject := TMyObject(AnArrayList[j]) ;
Response.Write(MyObject.MyField.ToString + '<br>') ;
end;
MyObject : TMyObject;
AnArrayList : ArrayList;
Enum: IEnumerator;
j:integer;
begin
AnArrayList := ArrayList.Create;
AnArrayList.Add(TMyObject.Create(2004)) ;
AnArrayList.Add(TMyObject.Create(1973)) ;
AnArrayList.Add(TMyObject.Create(2000)) ;
AnArrayList.Add(TMyObject.Create(1998)) ;
//FOR EACH
Enum := AnArrayList.GetEnumerator;
while Enum.MoveNext do
begin
MyObject := TMyObject(Enum.Current) ;
Response.Write(MyObject.MyField.ToString + '<br>') ;
end;
// OR USING ITERATION
for j:= 0 to -1 + AnArrayList.Count do
begin
MyObject := TMyObject(AnArrayList[j]) ;
Response.Write(MyObject.MyField.ToString + '<br>') ;
end;
Another posts included in "Delphi"
| Sending email messages in .Net (0) | 2007/10/04 |
| Find File at certain directory in Delphi (0) | 2008/10/10 |
| How to turn off monitor ? (0) | 2008/12/10 |
| Delphi for .Net Code Folding keyboard shortcuts (0) | 2007/10/04 |
| How to encrypt a string (0) | 2007/10/04 |
| Creating thumbnail images (0) | 2007/10/04 |
| Technology sharing related with software development. Specially content... (0) | 2007/10/02 |
| Window flashing (0) | 2007/09/25 |
Trackback : Cannot send a trackbact to this post.
-
Subject different money making ideas
2010/01/29 00:51
moneyideas
-
Subject different money making ideas
2010/01/29 09:22
moneyideas
-
Subject different money making ideas
2010/01/31 16:41
moneyideas
Prev
Rss Feed