Strings in Record-Strukturen: Delphi7 vs. BDS 2009/2010

[kaju74]

Hallo.

Ich hätte nochmal eine Frage bzgl. Strings in Record-Stukturen und den Unterschieden zwischen Delphi7 und BDS 2009/2010 (bezogen auf Unicode).

Nehmen wir mal folgende Struktur an, die so unter Delphi7 implementiert ist:

Delphi-Quellcode:

type
  TMyStructure = record
    LastName: string[32];
    FirstName: string[32];
  end;
  PMyStructure = ^TMyStructure;

Nehmen wir weiter an, eine Record-Instanz wird wie folgt erzeugt:

Delphi-Quellcode:

var
  MyStructure: PMyStructure;
begin
  New(MyStructure);
  MyStructure^.LastName := 'Mustermann';
  MyStructure^.FirstName := 'Max';
  ...
end;

Das Ganze unter Delphi7 kompiliert und funzt. Jetzt portieren wir das mal auf BDS 2009 und machen folgendes:

Delphi-Quellcode:

type
  TMyStructure = record
    LastName: string;
    FirstName: string;
  end;
  PMyStructure = ^TMyStructure;

Wie machen aus den ShortStrings/AnsiStrings nun UnicodeStrings. Was passiert nun bei "New(MyStructure)" und
beim Zuweisen der Record-Variablen, wenn diese statt mit einer Konstante mit einem übergebenen String (z.B. innerhalb
einer Methode) gefüllt werden?

Interessant finde ich, das ich dieses Konstrukt zwischen einer DLL und einer Host-Applikation einsetze, und ich beliebig
lange Unicode-Strings übergeben kann (SimpleShareMem/FastMM4)....hin und zurück. Dabei müsste doch nun der Speichermanager
von Delphi zunächst die Länge des Strings ermitteln und entsprechen Platz reservieren, oder?

Wie gesagt, eigentlich funktioniert das zwischen diversen Host-Applikationen und jeder Menger DLL's (PlugIns). Jetzt habe
ich aber an drei Stellen einer ziemlich großen Anwendung ein für mich nicht erklärbares Phänomen, bei dem z. B. übergebene
Strings an eine Methode plötzlich weg sind oder in einer anderen seltsamer Speichercode steht.

Ich werde also das Gefühl nicht los, das hier manchmal was nicht sooo richtig funktioniert und überlege, ob das mit diesen
Record-Strukturen zusammenhängt.

Wenn ich jetzt wieder die ShortStrings einführe [], dann muss ich halt an tausenden Codestellen einen Typcast machen (String->
AnsiString)....und daher die Frage, ob es hieran überhaupt liegen kann....!?!

Vielen Dank & Gruß,
kaju

[himitsu]

Da hat sich überhaupt nichts geändert.

Delphi-Quellcode:

type
  TMyStructure = record
    LastName: string[32];
    FirstName: string[32];
  end;
  PMyStructure = ^TMyStructure;

String[x] ist undbleibt ein

Delphi-Quellcode:

ShortString

mit begrenzter Länge,
also ein "Record" aus einem LängenByte, direkt gefolgt von X AnsiChars
und ein ShortString ist nunmal nur "ANSI".
( String[255] = ShortString )

Delphi-Quellcode:

type
  TMyStructure = record
    LastName: string;
    FirstName: string;
  end;
  PMyStructure = ^TMyStructure;

Hier ist String ein LongString,
also ein Pointer auf die String-Daten

Der Einzige unterschied ist, das
<= D2007: String = AnsiString
>= D2009: String = UnicodeString
Aber dieses ändert nichts an der Speicherverwaltung.

[add]
http://www.delphipraxis.net/internal...light=widechar

[mkinzler]

Diese beiden Deklarationen sind auch unabhängig von der Delphi-Version verschieden. ShortStrings sind auch bei >= D2009 AnsiStrings

[kaju74]

Hallo.

Das string[xx] unter Delphi auch ein Shortstring mit max. 255 Zeichen ist, ist mir klar. Nur ist die Frage, wie der Speicher von Delphi allociert wird:

Gebe ich die max. Länge in Klammern an, weiß der Compiler ja, wieviel Zeichen zu reservieren sind. Nutze ich stattdessen einen String (ohne Klammern!) und weiße ihm einen in einer Methode als Parameter übergebenen String zu, weiß der Compiler die Länge ja nicht, da es erst zur Laufzeit passiert.

Wird nun der Speicher dynamisch erweitert? Macht dass der Memory-Manager alleine? Kann ich mich ohne Zutun darauf verlassen, oder könnte da evtl. andere Speicher überschrieben werden?

Gruß,
kaju

[himitsu]

Das wurde doch erklärt?

Ein String[x] und ShortString (aka String[255]) entspricht dieser Struktur:

Delphi-Quellcode:

type
  MyShortString = packed record
    Len: Byte;  // entspricht Data[0]
    Data: array[1..x] of AnsiChar;
  end;

Ein String/AnsiString/WideString/UnicodeString ist ein Zeiger auf seine Daten,
also im Record steht dort nur der Pointer (mit seinen aktuell 4 Byte) und der Rest (der Stringinhalt) liegt irgendwo anders.
Und der Speicher, auf welchen der Pointer zeigt, wird von Delphi (der CompilerMagic) automatisch verwaltet.

Das ist in allen Delphiversionen gleich. (natürlich solange sie den entsprechenden String-Typen kennen)

[kaju74]

Hallo.

Okay..sorry...das ich hatte ich so nicht verstanden - nu' isses klar 8-) Ich hätt's eigentlich wissen müssen...also liegt hier nicht mein Problem...mysteriös. Oder fällt Euch nochwas ein, warum ein an eine Methode übergebener String dort nicht ankommt?

Danke & lieben Gruß,
kaju

[Neutral General]

Also nochmal um das klarzustellen: Du darfst an diesem Rekord NICHTS verändern. Es muss auch in D2009 so aussehen:

Delphi-Quellcode:

type 
  TMyStructure = record 
    LastName: string[32]; 
    FirstName: string[32]; 
  end; 
  PMyStructure = ^TMyStructure;

Das einzige was irgendwie zu Problemen führen könnte ist, dass man halt beachten muss, dass LastName und FirstName jetzt AnsiStrings sind und keine UnicodeStrings wie "String".

[kaju74]

Wieso....????

Ich habe bereits alle Strukturen umgestellt, und rein durch "String" ersetzt...wieso ist das jetzt doch ein Problem? Wenn doch statt z.B. vorher bei String[32] eben 32 Bytes reserviert wurden und jetzt bei "String" nur 4 Bytes für den Pointer (oder so), und über "CompilerMagic" der benötigte Platz für den String reserviert ist, müsste doch alles okay sein, oder etwas doch nicht..??!?!?

Lieben Gruß,
kaju

[kaju74]

Nachtrag:

Das war ja eben der Grund, warum ich alle Strukturen von AnsiString auf String/Unicode umgestellt habe. Ich hätte tausende Stellen Typecasten müssen, weil der Compiler da natürlich gemeckert hat, das evtl. Inhalt verlorengeht, wenn man einen String in AnsiString umwandeln möchte. Da die Stringlänge jetzt aber beliebig lang sein kann, war damit auch das Problem beseitigt...hoffe ich zumindest, da ich halt jetzt komischer Speicherüberlappungen habe. Umgestellt wurde von Delphi7/WindowsXP auf BDS 2009/Windows7 + Updates aller Komponenten. Jetzt muss ich halt nach für nach ausschließen, woher das Problem kommt.

Gruß,
kaju

[gammatester]

Zitat:

Zitat von kaju74

Oder fällt Euch nochwas ein, warum ein an eine Methode übergebener String dort nicht ankommt?

Da Deine Shortstrings 33 (nicht 32) Bytes belegen, wird mit ziemlicher Sicherheit die Speicherausrichtung {$a} bzw {$align} eine Rolle spielen. Sicher war man eigentlich nur, wenn man mit packed records arbeitet.