AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Problem mit der Ausgabe des Object bei TStringList
Thema durchsuchen
Ansicht
Themen-Optionen

Problem mit der Ausgabe des Object bei TStringList

Ein Thema von Chemiker · begonnen am 6. Apr 2007 · letzter Beitrag vom 6. Apr 2007
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.859 Beiträge
 
Delphi 11 Alexandria
 
#1

Problem mit der Ausgabe des Object bei TStringList

  Alt 6. Apr 2007, 00:01
Hallo,

ich habe ein Problem mit der TStringList, mit dem Befehl AddObject bekommt die Liste ein String und ein Object zugewiesen. Beim Auslesen kommt beim String das richtige Ergebnis, aber beim Object kommt Blödsinn raus.

Was mache ich falsch?


Delphi-Quellcode:
type
  TDatenNr= class(TObject)
  private
    FDatNr: integer;
    function GetFDatNr: integer;
    procedure SetFDatNr(Variable: integer);
  public
    Constructor Create;
    Destructor free;
    property DatNr: integer read GetFDatNr write SetFDatNr;
  end;

  TForm1 = class(TForm)
    StringEingabeEdit: TEdit;
    ZahlEingabeEdit: TEdit;
    StringAusgabeEdit: TEdit;
    ZahlAusgabeEdit: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    Liste: TStringlist; // StringListe
    DatenObj: TDatenNr; // Daten-Object
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Constructor TDatenNr.Create;
begin
  inherited;
end;

Destructor TDatenNr.free;
begin

end;

function TDatenNr.GetFDatNr: integer;
begin
  Result:= FDatNr;
end;

procedure TDatenNr.SetFDatNr(Variable: integer);
begin
  if FDatNr <> Variable then
    FDatNr:= Variable;
end;

procedure TForm1.Button1Click(Sender: TObject);
var StrEingabe: string;
    intZahlEingabe: integer;
    intZahlAusgabe: integer;
begin
  StrEingabe:= StringEingabeEdit.Text;
  intZahlEingabe:= strtoint(ZahlEingabeEdit.text);
  DatenObj.DatNr:= intZahlEingabe;
  Liste.AddObject(StrEingabe,DatenObj);
  StringAusgabeEdit.Text:= Liste[0];
  intZahlAusgabe:= TDatenNr(Liste[0]).DatNr; //<--- Hier wird nicht der
                                              // richtige Wert zurückgegeben.
  ZahlAusgabeEdit.Text:= inttostr(intZahlAusgabe);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Liste:= TStringList.Create;
   DatenObj:= TDatenNr.Create;
end;

end.


Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#2

Re: Problem mit der Ausgabe des Object bei TStringList

  Alt 6. Apr 2007, 00:28
Dein Problem (lang): Du erstellst immer nur ein Objekt. Wenn du nur ein Objekt erstellst, dann hast du auch immer nur eine Ablage für deine Zahl DatNr. Von daher hat dein Objekt (da du es bei jedem hinzufügen einen neuen Inhalt zuweist) auch immer nur den Wert in DatNr, welcher als letztes hinzugefügt wurde.

Dein Problem (kurz): Du hast ein und das selbe Objekt in jedem deiner StringList Einträge.

Deine Lösung: lege für jeden Eintrag den du hinzufügst auch eine entsprechende Instanz des Objektes an.

/EDIT: Omg, ganz übersehen den falschen Zugriff (Danke Hawkeye219)
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#3

Re: Problem mit der Ausgabe des Object bei TStringList

  Alt 6. Apr 2007, 00:41
Hallo,

Problem #2: du interpretierst einen String als Zeiger auf dein Datenobjekt:

Delphi-Quellcode:
// intZahlAusgabe:= TDatenNr(Liste[0]).DatNr; // so nicht...
intZahlAusgabe:= TDatenNr(Liste.Objects[0]).DatNr; // ...sondern so!
Gruß Hawkeye
  Mit Zitat antworten Zitat
Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.859 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Problem mit der Ausgabe des Object bei TStringList

  Alt 6. Apr 2007, 00:59
Hallo Hawkeye219,

danke für die schnelle Antwort, jetzt funktioniert es.

Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#5

Re: Problem mit der Ausgabe des Object bei TStringList

  Alt 6. Apr 2007, 01:06
Das von mir angesprochene Problem besteht auch noch weiterhin!

Zum anderen ist mir eben noch aufgefallen: Der Destructor heisst nicht "Free" sondern "Destroy" und der muss überschrieben werden. Von daher fehlt ein "Override;" und der Name muss abgeändert werden. Free kannst du aber trotzdem weiterhin verwenden um die Freigabe auszulösen, aber der Destructor bleibt Destroy!
  Mit Zitat antworten Zitat
Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.859 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: Problem mit der Ausgabe des Object bei TStringList

  Alt 6. Apr 2007, 02:12
Hallo Muetze1,


ist das der richtige Weg?

Delphi-Quellcode:
Destructor TDatenNr.Destroy;
begin
  inherited Destroy;
end;
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DatenObj.Free;
  Liste.Free;
end
Bis bald Chemiker;
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#7

Re: Problem mit der Ausgabe des Object bei TStringList

  Alt 6. Apr 2007, 02:16
Da fehlt aber noch mehr ! Was wird im FormClose denn genau abgehandelt ? Setze da die Action zumindest mal auf caFree.
Gruß
Hansa
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#8

Re: Problem mit der Ausgabe des Object bei TStringList

  Alt 6. Apr 2007, 03:08
Moin Chemiker,

das Gegenstück zu Create ist Destroy.
Wenn Du nun also etwas, völlig korrekt, in FormCreate erstellst, so solltest Du es im FormDestroy wieder freigeben, nicht im FormClose.

@Hansa:
Zitat von Hansa:
Setze da die Action zumindest mal auf caFree.
was aber nur bei dynamisch erzeugten Formularen Sinn machen kann, und danach sieht es mir hier nicht aus
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#9

Re: Problem mit der Ausgabe des Object bei TStringList

  Alt 6. Apr 2007, 03:18
@Fragesteller : Christian sagt es. Create, Show, Close usw. sollten schon korrespondieren. Wird im FormShow etwas erzeugt, dann muss es im FormClose eben wieder weg. Zwiebelprinzip und das ist schon wichtig ! Leider war davon kaum was zu sehen.
Gruß
Hansa
  Mit Zitat antworten Zitat
Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.859 Beiträge
 
Delphi 11 Alexandria
 
#10

Re: Problem mit der Ausgabe des Object bei TStringList

  Alt 6. Apr 2007, 10:37
Hallo Hansa, Christian

eine Frage vorweg müsst Ihr eigentlich nicht auch mal schlafen? Nicht ganz ernst gemeint.

Zitat von Hansa:
Setze da die Action zumindest mal auf caFree.
caFree habe ich bis jetzt im HauptForm nicht angewendet, sonder nur bei z.B.: MDI-Child-Forms, oder bei dynamisch erzeugt Forms.
Ich bin bis jetzt davon ausgegangen das nach dem schließen der Anwendung auch der Speicher für das Hauptform wieder freigeben wird.

Und nun zu der Antwort Speicherfreigabe der Objecte wo den genau?

Christian Du meinst in FormDestroy:

Zitat von Christian Seehase:
„das Gegenstück zu Create ist Destroy.
Wenn Du nun also etwas, völlig korrekt, in FormCreate erstellst, so solltest Du es im FormDestroy wieder freigeben, nicht im FormClose.“
Hansa Du meinst in FormClose:

Zitat von Hansa:
@Fragesteller : Christian sagt es. Create, Show, Close usw. sollten schon korrespondieren. Wird im FormShow etwas erzeugt, dann muss es im FormClose eben wieder weg.

Ich habe neuerdings immer den Speicher, bei OnClose wieder freigegeben. Es muss aber Destroy sein. Danke für die Tipp.

Die Reihenfolgen der Ereignisse von Form:

Beim Aufruf:

1 OnCreate
2 OnShow
3 OnActivate
4 OnPaint

Das Programm läuft
Das Programm wird beendet

1 OnCloseQuery
2 OnClose
3 OnDestroy

Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  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 13:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz