Inkompatible Typen - String ungleich String ??

[Mr. No]

Hallo,
ich habe in zwei unterschiedlichen Klassen Stringzeigertypen derart definiert:

Delphi-Quellcode:

type
  PString = ^String;

in beiden Klassen gibt es eine Prozedur, die als Parameter diesen Typ PString erwartet:

procedure run(Source: PString; index: Integer); wenn ich jetzt von einer Klasseinstanz eine Methode der anderen aufrufen will

aus Klasse1:
meineKlasse2.run(Source, 0); dann spuckt der Interpreter folgende Fehlermeldung aus:
Inkompatible Typen: 'KlasseA.String' und KlasseB.String

Kann mir jemand erklären, woran das liegt?

Danke!

[edit=alcaeus]Überbleibsel von Codeblöcken entfernt. Mfg, alcaeus[/edit]

[MrSpock]

Hallo Mr.No,

du darfst PString nur in einem Modul deklarieren und musst diese Deklaration mit uses (auf das Modul, dass die Deklaration enthält)in das andere Modul einbinden.

[Mr. No]

hey - klasse - danke, es funktionert!

Eine Frage hab ich aber noch. Wenn ich jetzt beispielsweise zwei Klassen hätte, die das jeweils brauchen (PString = ^String), und von einer dritten beiden über uses eingebunden werden. Gibt's dann irgendwelche Probleme, weil dann zweimal die gleiche Typendeklaration auftaucht? - Was mach ich dann?

Gruß Max

[shmia]

Zitat von Mr. No:

ich habe in zwei unterschiedlichen Klassen Stringzeigertypen derart definiert:
ausblenden anzeigen Sourcecode

Delphi-Quellcode:

type
  PString = ^String;

Der Datentyp AnsiString (ab Delphi 2 ist das gleich String) ist von sich aus schon ein Zeiger.
sizeof(string) ergibt 4 !!
Ausserdem wird beim AnsiString intern Referenzzählung sowie automatische Speicherbelegung & freigabe angewendet.
Also ist ein Stringzeigertyp kontraproduktiv.
Übrigens ist PString schon in System.pas deklariert und sollte deshalb nicht erneut deklariert werden.

[Mr. No]

ah - ok - das ist natürlich noch praktischer. Das bedeutet also, dass ich bei einem Funktionsaufruf mit einem Stringargument immer eine Referenz und keine Kopier übergebe?

[shmia]

Zitat von Mr. No:

ah - ok - das ist natürlich noch praktischer. Das bedeutet also, dass ich bei einem Funktionsaufruf mit einem Stringargument immer eine Referenz und keine Kopier übergebe?

Genau !
Wenn du den String-Parameter innerhalb der Funktion nicht ändern möchtest, dann als const Parameter übergeben:
procedure Test(const inhalt: string); Wenn du den String ändern und an den Aufrufer zurückgeben willst, dann als var Parameter übergeben:

Delphi-Quellcode:

procedure MitSternchen(var s : string);
begin
   s := '*** '+s+' ' ***';
end;

[Mr. No]

Hi,
das
procedure MitSternchen(var s : string); hab ich gerade versucht.

An einer Stelle bekomme ich hier aber eine Fehlermeldung.
Und zwar wenn ich schreibe:

Delphi-Quellcode:

procedure KlasseA.run(var Line: String);
begin
  meineKlasseB.run(Line[i]);
  ...

wobei auch die Prozedur run der KlasseB
mit
run(var Line: String); definiert ist

[SirThornberry]

weil "line[i]" ein Property und keine Variable ist. Hinter "line[i]" vergirgt sich eine GetMethode und eine SetMethode und einer GetMethode (funktion) kann man logischer weise keinen Wert zu weisen, also ist es auch keine Variable... Ich denk du weißt was ich meine...

[Mr. No]

ja - verstehe - und wie kann ich das Problem dann beheben?
Wie kann ich von der Referenz Line auf die Property zugreifen, um die i-te Zeile zu übergeben?

[SirThornberry]

da hilft nur eine zwischenvariable wenn du mit referenz (var) arbeiten willst.