-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Ja wäre eine Möglichkeit aber das Sortieren ist das Problem und vor allem ob er innerhalb meiner Button1click Prozedur den Sortieralgorithmus aufruft!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Der Code soll bezwecken, dass wenn eine editbox existiert, er jeweils spezifische Elemente aus dem arrayFeld entfernt! Es handelt sich hierbei um einen Rechner für Notendurchschnitte, der es ermöglicht aus 5 Fächern und jeweils 4 Halbjahresleistungen die besten 5 Leistungen zu Tage zu befördern!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Ich arbeite bei diesem Problem eben visuell, d.h. wenn eine editbox existiert dann soll er diesen Weg einschlagen. Das ist aber auch nicht mein Problem, denn das lässt sich sicherlich noch anders machen, das Sortieren allerdings muss funktionieren!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Also ich habe jetzt den Quelltext zussammen, meine Ergebnisse zeigen mir allerdings, dass er scheinbar nicht sortiert!
Ich hänge mal den zugehörigen Quelltext an, vielleicht fällt dem ein oder anderen etwas auf...
Es sei auch egal wie die Bezeichnung der Variablen aussieht, Schönheitskorrekturen kommen später!
{usw.}
procedure Button3Click(Sender: TObject);
procedure...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Wie kann ich nun die 5 höchsten Zahlen erhalten z.B. in einem editFeld?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Greif ich dann innerhalb meiner Button1click prozedur durch Bubblesort(B) auf die "extern" festgelegte Prozedur BubbleSort zu?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Aber unter Private klappt es ja auch nicht, deshalb habe ich es wieder verworfen...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Nein das habe ich nicht so geschrieben: Mein Code lautet:
procedure Button1Click(Sender: TObject);
Procedure BubbleSort(var B: Array of byte); {hier meldet er den Fehler}
private
{ Private-Deklarationen }
{usw.}
Procedure BubbleSort(var B: Array of byte);
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Bringt leider auch nichts!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Vielen Dank, da war ich wohl wieder etwas zu flink! Aber trotzdem mekkert er und bezeichnet die Prozedur innerhalb des "type"-Teiles, d.h. vor private als "Ungeügende Forward- oder External-Deklaration: TForm5.BubbleSort"
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Das ist eine wirklich gute Frage!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
inzwischen bin ich so weit gekommen:
(Kann jemand mal Korrektur lesen?!?)
procedure Button1Click(Sender: TObject);
Procedure BubbleSort(var B: Array of byte);
private
{ Private-Deklarationen }
{usw.}
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Vielen Dank für die nützlichen Hinweise, aber eine FRage bleibt:
Wie rufe ich die Procedure Bubblesort innerhalb meiner Button1cclick prozedur auf?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Das hat mir schon einmal geholfen, aber warum kennt mein Delphi die Prozedur "SwapValues" nicht?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Wie übergebe ich das Feld(array) als Parameter?/Warum kennt mein Delphi die Prozedur "SwapValues" nicht?
Procedure BubbleSort;
var i,j : Integer;
Begin
For i:= 24 downto 1 Do
For j:= 1 To i Do
If (B > B) Then SwapValues( j-1, j );
End;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Wenn ihr das alle so genau wisst, warum schreibt ihr immer so unkonkrete Antworten!
Natürlich muss ich selbst überlegen! Aber ich habe von Bubblesort etc. bis zum gestrigen Tage nichts gehört und da soll ich wissen wie ich ihn auf mein Problem anpassen kann?!?
Vielleciht hat jemand einen nützlichen Ratschlag!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Also so?
Procedure BubbleSort;
var i,j : Integer;
Begin
For i:= 24 downto 1 Do
For j:= 1 To i Do
If (Array > Array) Then SwapValues( j-1, j );
End;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Das hilft mir aber alles nicht weiter:
Selbst wenn ich folgenden Pseudocde habe:
Procedure BubbleSort;
var i,j : Integer;
Begin
For i:= N downto 1 Do
For j:= 1 To i Do
If (Data > Data) Then SwapValues( j-1, j );
End;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
array of word
-->Ich will ja Zahlen sortieren!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by AlexanderBrade,
23. Dez 2008
Ich hab ein riesengroßes Problem wie kann ich folgendes array Feldsortieren?
array
Jedem z.B. A ist der Wert eines edit-Feldes zugewiesen.
Ich möchte nun das Feld sortieren um anschließend die 8 höchsten Werte(1-15 sind möglich) zu erhalten um diese dann addieren zu können!
Wie müsste ein solcher BubbleSortAlgorithmus aussehen und wo schreibe ich den genau hin?