Kellerspeicher

[hotkey]

Also so hier : ?

Delphi-Quellcode:

procedure tstack.stackpush(i:integer;s:string);
 begin
   inc(stackpos);
   Keller[Stackpos].id := i;
   Keller[Stackpos].Name := s;
   end;

Und da muss ich doch wieder sagen , dass der Benutzer das eingeben soll.

Wenn ich die Prozedur aufrufe , was soll ich dann in den Kopf reinschreiben , damit er weiß , dass i gleich strtoint(edit1.text) ist ?

[DeddyH]

Was würdest Du hiervon halten?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  FStack.stackpush(StrToInt(Edit2.Text), Edit1.Text);
end;

[hotkey]

So ähnlich hatte ich es auch am Anfang , ich hatte bloß Hochkommata.

Alles klar vielen Dank , davon halte ich sehr viel.

Ich glaube , dass ich gut gerüstet bin für die Klausur , auch dank deiner Hilfe.

Vielen Vielen Dank , wir sehen uns hoffentlich bei anderen Problemen <3.

[DeddyH]

Dann drücken wir mal die Daumen :)

[himitsu]

Zitat:

Zitat von hotkey (Beitrag 1167750)

Ist das semantisch nicht korrekt ?

Njain, also korrekt ist es sogesehn schon,
aber würdest du solche Globalen nicht verwenden, dann währe dir z.B. aufgefallen, daß du in TStack auf die Form zugreifst, anstatt die Parameter zu nutzen. :zwinker:

Wenn man alle Daten korrekt übergibt, dann kommt man meistens ohne solche globalen Variablen aus. :angle:

PS: Eine Prüfung auf die Arraygrenzen fehlt noch.
Oder notfalls einfach die Compileroption für Indexprüfung aktivieren. (Projektoptionen > Bereichsprüfung)

[hotkey]

Das werde ich in der Klausur machen , das mit der Bereichsprüfung :D

Vielen vielen Dank !

[DeddyH]

Man müsste ja nur in stackpush schauen, ob sich stackpos überhaupt noch erhöhen lässt oder man schon am array-ende steht.

[himitsu]

Du kannst auch mehr rausholen, als drinnen ist. :zwinker:

[DeddyH]

Nur das da dann mit größter Wahrscheinlichkeit Müll rauskommt.

[Namenloser]

Eigentlich wurde alles schon gesagt, aber ich wollte noch ergänzen, dass Delphi auch von Haus aus eine Stack-Implementierung an Bord hat. Sie befindet sich in der Unit contnrs und heißt TStack. Kannst du dir ja mal anschauen, wenn dich interessiert, wie Borland es implementiert hat ;)

Voraussetzung ist natürlich, dass du hast eine Delphi-Version hast, bei der der Source-Code dabei ist (z.B. Turbo-Delphi)...

Achja, und du solltest deinen Code konsequenter einrücken.