D8: Typprüfung

**Jens Schumann**

Hallo,
im aktuellen Entwickler habe ich folgenden Source gefunden:

Delphi-Quellcode:

			procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);

var

  aDoc : IHTMLDocument2;

  aAr  : Array of TObject;

begin

  If Sender=Button1 then

    begin

    aDoc:=AxWebBrowser.Document as IHTMLDocument2;

    SetLength(aAr,1);

    aAr[0]:='<html>Das ist ein [b]Test[/b]</html>';

    aDoc.writeln(aAr);

    end; // If Sender=Button1 then

end;

Der scheint mir doch etwas myteriös. Man beachte folgende Zeile
aAr[0]:='<html>Das ist ein [b]Test[/b]</html>'; Hier wird einem TObject eine Stringkonstante zugewiesen. Bis einschließlich D7 ist das undenkbar.

Jetzt vermute ich, dass unter D8 auch die .NET Maxime "Alles ist ein Objekt" gilt. Damit
wird '<html>Das ist ein Test</html>' als Objekt betrachtet. Damit wäre die
Welt der Typprüfung wieder im Lot.

Ist meine Vermutung richtig ?

Die Zuweisung an eine Property wird ja bei Interfaces immer auf eine Setter-Methode abgebildet.
Moeglicherweise gibt es nun mehrere ueberladenen Setter und einer davon wandelt den String in ein Objekt.

Ansonsten koennen auch fruehere Delphi-Versione ein paar Tricks.
Die Zuweisung eines Strings an ein TGUID z. B.

**Phoenix**

Ein String ist in D8 auch ein Object (irgendwo im System. - Namespace).

Aus diesem Grund geht das. Du hast also in aAr[0] nun ein Objekt vom Typ String.
Das ist - wenn man Java kennt - nichts neues. Problematisch wird nun nur die Überprüfung:

markieren

Delphi-Quellcode:

			   aAr[0]:='<html>Das ist ein [b]Test[/b]</html>';

   aAr[1]:='<html>Das ist ein [b]Test[/b]</html>';

if aAr[0] = aAr[1] then

   ShowMessage('Diese Meldung wird nie kommen,')

else

   ShowMessage('denn die Strings wind zwar gleich, aber es ist nicht das gleiche Objekt!');

Daher musst Du bei solchen Sachen, die auf TObject gecastet werden erst eine Konvertierung in einen String machen. Verwendest Du direkt den String, so sind dort die Typumwandlungen beim Vergleich bereits implementiert.

**Jens Schumann**

Zitat von Phoenix:

... Daher musst Du bei solchen Sachen, die auf TObject gecastet werden erst eine Konvertierung in einen String machen. ...

Das ginge ja dann zeimlich einfach mit

markieren

Delphi-Quellcode:

			    If aAr[0].ToString=aAr[1].ToString then

      ShowMessage('Yes')

      else

        ShowMessage('No');

D8: Typprüfung

D8: Typprüfung

Re: D8: Typprüfung

Re: D8: Typprüfung

Re: D8: Typprüfung

Forumregeln

Robert Marquardt (Gast) n/a Beiträge	#2 Re: D8: Typprüfung 10. Jun 2004, 11:09 Die Zuweisung an eine Property wird ja bei Interfaces immer auf eine Setter-Methode abgebildet. Moeglicherweise gibt es nun mehrere ueberladenen Setter und einer davon wandelt den String in ein Objekt. Ansonsten koennen auch fruehere Delphi-Versione ein paar Tricks. Die Zuweisung eines Strings an ein TGUID z. B.
	Zitat