-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
:lol:
Ich schätze, wenn rebellxsky das Code-Beispiel von dir, Sir Rufo, in der Schule vorbringt, könnte man vielleicht... ein bisschen... daran zweifeln, dass das alles auf seinem Mist gewachsen ist. :wink:
Damit möchte ich allerdings nicht deinen Lösungsvorschlag schmälern. :thumb:
Ergänzend müsstest du jetzt nur erklären, wie das alles funktioniert, damit er das zumindest versteht... und...
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
LOL!
Haste dat alles grad reingehackt?!
NETT!
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
Und das Problem mit der letzten 'Zeile':
For min := 0 To max do
begin
lblsort.caption := lblsort.caption + IntToStr(sort) + '; ';
end;
kannste z.B. so lösen:
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
Na hoffentlich versteht er das alles...:shock:
Er war gerade auf dem richtigen Weg...
Ja...
Dein Button zum hinzufügen eines Wertes sollte ungefähr so ausehen:
procedure Form1.Button....;
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
Da hast du zweifellos Recht, fängt aber intern trotzdem bei 0 an. Erwähnt hatte ich das auch nur, viele Anfänger meinen, dass man mit 1 anfängt zu zählen, das in der Programmierung aber etwas anders ist.
Aber dein Einwand ist sinnvoll und berechtigt.
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
Noch ein Nachtrag:
Wenn du z.B. drei Werte übergeben hast, dann mal 'kurz' sortierst fehlt dir plötzlich die Position, wo du weitere in dein Array füllen kannst, da dann deine Zählerposition hinfällig ist.
Daher wäre es das Einfachste, erst alle Werte zu übergeben und danach zu sortieren.
Alles Andere macht dein Projekt deutlich komplexer... außer du arbeitest tatsächlich mit einem...
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
Das sagt mir ja schon mal, es handelt sich bei dir um statisches Array mit 10 Werten... (Ein Array fängt übrigens bei 0 : Array)
Auf jeden Fall macht es das schon insgesamt einfacher.
Du musst jetzt nur systematisch vorgehen:
1) Der erste Wert soll nach dem Button-Click an deine Array übergeben werden, natürlich dann auch gleich einsortiert werden.
Das Problem ist, dass, wenn du z.B....
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
Also:
Leider ist nicht genau zu erkennen, wie die chronologische Abfolge deines Quellcodes ist.
Sei mal so nett und poste ihn mal vollständiger...
Im ersten Moment sieht es nämlich so aus, als würde dein Array nach dem Buttonclick immer mit dem jeweiligen Caption Wert gefüllt werden können: d.H. die Felder des Arrays hätten dann alle den selben Wert, wie er nach dem letzten Buttonclick...
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
Naja, wenn der Autofahrer nicht mal weiß, wo der Rückwärtsgang ist, sollte er sich vielleicht mit einem öffentlichen Verkehrsmittel anfreunden. Vielleicht hat er ja noch gar keinen Führerschein. Mit Bus oder Bahn käme er aber wahrscheinlich schon mal ans Ziel.
*grins*
Ich habe so das Gefühl, als wenn der junge Verfasser dieses Themas auch noch keine Plan hat, wo er die Gänge findet.
Aber...
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
Morgens!
Lieber Dejan Vu :?:
Die Aufgabenstellung umfasst doch die Frage nach einem bestimmten Algorithmus: Sortieren mit direktem Auswahlort sprich: Sortierung durch direkte Auswahl...
Meine Programmbeispiele beantworten die Frage nach dem gesuchten Algorithmus definitiv... Ein anderes Programmbeispiel mit umfassender Beschreibung findet man (sogar in Delphi geschrieben) unter...
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
Letzteres entspricht dem folgenden Schema:
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
...oder das...
Trifft es vielleicht noch eher...
procedure austauschsort (var a: array of Word);
var bis,i,j : LongInt;
h : Word;
begin
bis := High(a);
for i := 0 to bis - 1 do
-
Forum: Object-Pascal / Delphi-Language
by humbuck,
7. Dez 2014
Probiers mal damit:
procedure auswahlsort (var a: array of Word);
var bis,i,j,k : LongInt;
h : Word;
begin
bis := High(a);
for i := 0 to bis - 1 do
begin
h := a;