Delphi-PRAXiS - Prism D8: Typprüfung

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Prism D8: Typprüfung (https://www.delphipraxis.net/23818-d8-typpruefung.html)

Jens Schumann

10. Jun 2004 09:30

D8: Typprüfung

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

Delphi-Quellcode:

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 ?

Robert Marquardt

10. Jun 2004 10:09

Re: D8: Typprüfung

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

10. Jun 2004 10:15

Re: D8: Typprüfung

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:

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

10. Jun 2004 11:08

Re: D8: Typprüfung

Zitat:

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

Delphi-Quellcode:

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

      ShowMessage('Yes')

      else

        ShowMessage('No');

Alle Zeitangaben in WEZ +1. Es ist jetzt 15:09 Uhr.