Kannst du bitte konkret schreiben, was noch übersetzt werden muss oder was eventuell nicht funktioniert!?
Glaub nicht, dass viele Leute erstmal Zeile für Zeile gucken möchten, was noch fehlt.
Grüße, Tony
Edit: Und was ist das für ein Code-Stück, gehört das zu einem Chatprogramm?
Stimmt
Hauptsächlich gehts mir um die For Each Schleife!
Delphi-Quellcode:
For Each oPersonalStatus In oPersonalStatusFolder.Items
If oPersonalStatus.Name = "*In A Meeting" Then
’ Use the ApplyStatus method with our "*In A Meeting" Personal status object
oUser.ApplyStatus oPersonalStatus
End If
Next
Martin