AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi GetMem / FreeMem - New / Dispose
Thema durchsuchen
Ansicht
Themen-Optionen

GetMem / FreeMem - New / Dispose

Ein Thema von AJ_Oldendorf · begonnen am 8. Jun 2012 · letzter Beitrag vom 12. Jun 2012
Antwort Antwort
Seite 1 von 2  1 2      
AJ_Oldendorf

Registriert seit: 12. Jun 2009
486 Beiträge
 
Delphi 12 Athens
 
#1

AW: GetMem / FreeMem - New / Dispose

  Alt 8. Jun 2012, 09:27
Ok danke.

Das heißt, wenn ich folgenden Record habe, würde FreeMem den String nicht richtig freigeben?

Delphi-Quellcode:
TData = packed record
    a: LongWord;
    b: String[40];
    c: TDateTime;
  end;
Gruß
Alex
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

AW: GetMem / FreeMem - New / Dispose

  Alt 8. Jun 2012, 09:29
Wo ist da der LANGE String?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.535 Beiträge
 
Delphi 12 Athens
 
#3

AW: GetMem / FreeMem - New / Dispose

  Alt 8. Jun 2012, 09:31
Nein, den würde es freigeben.
DAS ist ein "kurzer" String.

String[123] = Delphi-Referenz durchsuchenShortString mit besimmter maximaler Länge ( MaxLen <= 255 )
String = Delphi-Referenz durchsuchenAnsiString, bzw. Delphi-Referenz durchsuchenUnicodeString, was beides Long-Strings sind.
WideString = WideString, was ein OLE-Wrapper um MSDN-Library durchsuchenSysAllocStringLen und seine Freunde
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
AJ_Oldendorf

Registriert seit: 12. Jun 2009
486 Beiträge
 
Delphi 12 Athens
 
#4

AW: GetMem / FreeMem - New / Dispose

  Alt 8. Jun 2012, 09:55
Ok, wusste nicht genau, was du mit "lange" Strings meinst

Also würde bei New und FreeMem (mit richtiger Größenangabe) eigentlich nichts passieren bei dem geposteten Record?

Gruß
Alex
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#5

AW: GetMem / FreeMem - New / Dispose

  Alt 8. Jun 2012, 10:00
Ich würde es etwas anders formulieren:

Benutze nur New/Dispose, es sei denn es ist nicht zu umgehen und Du weißt was Du tust, dann benutze Getmem/Freemem.

Die andere Ausnahme ist, wenn Du Wert auf vollkommen unerklärlich Fehler legst, da ist Getmem/Freemem wunderbar für geeignet.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.535 Beiträge
 
Delphi 12 Athens
 
#6

AW: GetMem / FreeMem - New / Dispose

  Alt 8. Jun 2012, 10:50
Jupp.

FreeMem neigt eventuell zu Speicherlecks, da ja nur der Pointer selber freigegeben wird, aber nichts, was darin eventuell verlinkt wurde.
Und auf GetMem folgen eventuell unerklärliche gemeine und eigentlich erklärliche Fehler, wenn gewisse Dinge nicht ordnungsgemäß initialisiert wurden.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
AJ_Oldendorf

Registriert seit: 12. Jun 2009
486 Beiträge
 
Delphi 12 Athens
 
#7

AW: GetMem / FreeMem - New / Dispose

  Alt 8. Jun 2012, 10:51
Zitat:
Die andere Ausnahme ist, wenn Du Wert auf vollkommen unerklärlich Fehler legst, da ist Getmem/Freemem wunderbar für geeignet
Jetzt würde mich aber wirklich mal interessieren, was du mit unerklärlichen Fehlern meinst wenn man GetMem und FreeMem benutzt?

Gruß
Alex
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.535 Beiträge
 
Delphi 12 Athens
 
#8

AW: GetMem / FreeMem - New / Dispose

  Alt 8. Jun 2012, 10:56
"lange" Stringvariablen, Interfaces, Variants und dynamische Arrays müssen initialisiert sein, sonst knallt die automatische Speicherverwaltung.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
NickelM

Registriert seit: 22. Jul 2007
Ort: Carlsberg
445 Beiträge
 
Delphi 2009 Professional
 
#9

AW: GetMem / FreeMem - New / Dispose

  Alt 8. Jun 2012, 12:09
Er meint dass wie folgt:
Delphi-Quellcode:
type
  TRecord1 = record
    Wert1 : Integer;
  end;
  PRecord1 = ^TRecord1;//Pointer auf die Daten des TRecord1.

  TRecord2 = record
   Record1 : PRecord1; //Eine Variable vom PRecord1
  end;
  PRecord2 = ^TRecord2;

//Wenn du dies nun wie folgt initalisiertst:
var Record2 : PRecord2;
begin
  GetMem(Record2,SizeOf(TRecord2)); //Speicher vom Record-Typ, nicht vom Pointer-Typ :-D
  GetMem(Record2.Record1,SizeOf(TRecord1)); //Den TRecord1-Pointer in TRecord2 initalisieren.
  Record2.Record1.Wert1 := 10; //Als Test

  //Wenn du dies nun wie folgt freigibst nur...
  FreeMem(Record2,SizeOf(TRecord2)); //Zur Sicherheit würd ich die Größe nochmal übergeben.
  //...bleibt der Pointer auf TRecord1 in TRecord2 enthalten, also der Speicher von TRecord1 wird nicht freigegeben. Weil in TRecord1 nur der Pointer(Adresse, wo TRecord1 seine Daten hat), also nur der Adresswert, freigegeben wird.
  //In diesem Fall müsste mal folgendes machen:
  FreeMem(Record2.Record1,SizeOf(TRecord1));//Alle in diesem Pointer-Record-Typ enthaltenen Pointer musst du selbst freigeben. Bei Klassen halt Free davor aufrufen.
  FreeMem(Record2,SizeOf(TRecord2));//Danach erst den "Oben"-Pointer freigeben.
end;
Du musst halt sozusagen die hierarchie deines Pointers, wenn du es so machst wie in dem Beispiel, von unten nach oben freigeben, erst die untengeordneten, danach die oberen.
Auserdem macht GetMem nur Platz für die Daten. Es ist meist so, dass dort Werte von anderen freigegeben Speichern noch liegt. Weil GetMem halt nur sagt, so hier kannst deine Daten reinschreiben. Es gibt aber auch noch die AllocMem, mit der dann der Speicher mit "0"Bytes aufgefühlt wird, um solche Fehler zuvermeiden. Das kann dan auch mit FreeMem freigegen werden.
Dies ist genauso als würdest du GetMem und danach FillChar aufrufen.

EDIT: Habe gerade was getestet. Bei New/Dispose werden Pointer initalisiert, die nach Dispose noch verfügbar sind. D.h. der Speicher wird von Delphi freigegeben. Sozusagen wenn du wirklich Kontrolle über den Speicher für solche Pointer haben willst verwende lieber, GetMem/FreeMem. Bei falscher verwendung können halt solche genannten Fehler entstehen.

Hoffe ich konnte es dir erklären. Ist ein wenig kompliziert am anfang, ging mir auch so .
Aber einmal kapiert, sind Pointer und Speicher erstellen/freigeben ein kinderspiel xD
Nickel
"Lebe und denke nicht an morgen"
Zitat aus dem gleichnamigen Bollywoodfilm.

Geändert von NickelM ( 8. Jun 2012 um 12:34 Uhr)
  Mit Zitat antworten Zitat
AJ_Oldendorf

Registriert seit: 12. Jun 2009
486 Beiträge
 
Delphi 12 Athens
 
#10

AW: GetMem / FreeMem - New / Dispose

  Alt 11. Jun 2012, 09:24
Zitat:
Nimm z.B. folgende Definition:
Delphi-Quellcode:
type
  MyRec = record
            f1 : Byte;
            f2 : Word;
            f3 : String[80]
 end;
Das sind 84 Byte Du arbeitest also mit Getmem(p,84);
Das Dumme ist nur, das ein mögliches Alignment nicht beachtet wurde. Und immer wenn der String 80..75 Zeichen lang wird, dann trittst Du irgend einer anderen Variablen auf die Füße.
Und wie sieht es aus, wenn ich mit packed records arbeite? Diese habe ich nämlich nur in Verwendung...
Wie meinst du das mit den "String 80..75 Zeichen", dass ich dann einer anderen Variablen auf die Füße trete?

Gruß
Alex
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz