Problem mit msvcrt.dll

[Mokus]

Tach zusammen,

habe ein recht komisches Problem mit meinen Delphi, es tretten Sachen auf, die ich mir nicht erklären kann.
Bild 001 ist eine Ausgabe, wie angeblich ein String aussehen soll, den ich von hand eingegeben habe.
Im bild 001_debug kann aber man gut sehen, dass der Parameter eigentlich auf "test" steht ...

Delphi-Quellcode:

procedure TErrechne.AddStadt(AlleNachbarn: allNachbarn; Name: string);
var
  temp: TStadt;
begin
  temp := TStadt.create(Name, AlleNachbarn);
  self.AllStadte.Add(temp);
  showmessage(self.AllStadte[AllStadte.Count - 1].getName);
end;

hier ist die Methode wo der Fehler auftritt.

Möchte ich nun in verschiedenen Teilen des Programmes getname aufrufen, kommt ein komischer Fehler.
Daraufhin habe ich das showmessage und auch hier kommt der Fehler,
Das hindert ein nun am programmieren, da einfach sachen wie ein .add oder ein Object.getname zu komischen fehler führt, hat wer irgendwie eine Idee...?

[baumina]

Sicherlich magst du uns noch paar Inputs geben, wie z.B.:
1. Wird ein Create von AllStadte aufgerufen, wenn ja wo und was passiert da
2. Ist AllStadte zu diesem Zeitpunt assigned
3. was macht das Add von AllStadte
4. was macht das GetName von AllStadte
5. was zeigt AllStadte.Count an

[Mokus]

Gerne gib ich weiter Informationen raus,
wusste nur nicht was ihr genau wissen müsst:

1. Wird ein Create von AllStadte aufgerufen, wenn ja wo und was passiert da

Ja wird es, im Form create wird die klasse TErrechne erstellt. ,

Delphi-Quellcode:

procedure TForm6.FormCreate(Sender: TObject);
begin
  if not Assigned(self.Berechnung) then
  begin
    self.Berechnung := TErrechne.create;
  end;
end;

und im Constructor von TErrechne wird AllStadte erstellt.

constructor TErrechne.create;
begin
self.AllStadte := TObjectList<TStadt>.create;
end;


2. Ist AllStadte zu diesem Zeitpunt assigned

ja, da es ganz zum anfang erstellt wird.


3. was macht das Add von AllStadte
AllStadte ist eine normale GenericsObjectlist von typ TStadt, am add selbst habe ich nichts geändert.


4. was macht das GetName von AllStadte

Da allStadte eine Objectliste ist, greif ich auf das Object zu. Das ist eine Instance von TStadt.
das getname von TStadt gibt nur eine private Variable zurück.

Delphi-Quellcode:

function TStadt.getName: string;
begin
  result := name;
end;

5. was zeigt AllStadte.Count an
Zeig nach dem add´n 1 an.


Wer noch mehr infos braucht, einfach fragen.
Ich versuch alle nötigen Informationen zu liefern.

[baumina]

OK, fehlt noch :
6. Ist AllStadte[0] zu diesem Zeitpunkt auch assigned
7. Kommt er in die Routine TStadt.GetName (Haltepunkt setzen)
8. Wie sieht TStadt aus
9. Was macht TStadt.Create

[himitsu]

Zum Ersten Bild, wo war da eigentlich grade die Codeausführung?

Wenn TStadt.Create, bzw. eigentlich die Zuweisung an die Variable "Temp" noch nicht ausgeführt war, dann steht in dieser Variable nunmal ein Zufallswert und demnach wäre es dort vollkommen Normal, daß da "Mist" angezeigt werden würde.

Zitat:

Delphi-Quellcode:

procedure TForm6.FormCreate(Sender: TObject);
begin
  if not Assigned(self.Berechnung) then
  begin
    self.Berechnung := TErrechne.create;
  end;
end;

Wozu das Assigned?
Gibt es denn noch eine andere Stelle wo das Ding initialisiert wird?

[Mokus]

Hey,
Bin gerade im Zug und nur mit Handy im Netz
Deswegen kann ich keine sourcen zeigen.
@himitsu
Ja temp wurde vorher erstellt, und der Parameter heißt auch Test.
Wegen aasigned war nur wegen der Sauberkeit.
Das wird nirgendswo anders erstellt.
@baumina
6) ja es ist auch zu diesen zeit Punkt assigned
7) ja kommt er rein. Dann steht im debugger bei Self auch solch ein komische. Wert.

8/9 kann ich dir erst heut Abend zeigen, da ich nur im Zug on bin.

Ist aber eigentlich nichts spektakuläres.
Klasse an sich paar Funktion und paar Variablen im private Bereich.
Der constructor weiß auch nur werte den private Variablen zu.
Genaueres zeige ich dir heut Abend.