Re: Quicksort eines Datensatzes nach alphabet
Hallo Sai!
Nun habe ich mal das alte Tp7 'rausgesucht. Beim Ausflug in die Vergangenheit habe ich mich dann ein wenig in alten Erinnerungen "festgelesen" - also hat es etwas länger gedauert. Dynamische Arrays hat es unter TP7 ja noch nicht gegeben, für die Speicherung der Datensätze hätte man damals also den Heap verwendet und eine verkettete Liste oder einen Baum angelegt. Das würde an dieser Stelle aber wohl zu weit gehen. Wenn ich mich richtig erinnere, hast du unter TP7 nur 64 KBytes für alle Variablen zur Verfügung wenn du den Heap nicht benutzt. In Anbetracht der von dir genannten maximalen 100 Datensätze machen wir es am einfachsten so, wie man es eigentlich nicht machen sollte: In der Unit deklarieren wir den DatenRecord, ein statisches Array um die Daten im RAM zu halten und einen Datensatz-Zähler...
Delphi-Quellcode:
Dann brauchen wir eine Procedur, um die Daten in das Array einzulesen...
type tDataRec = record of
Name : String[aa]; // Länge eintragen!! Rasse : String[bb]; // Länge eintragen!! end; var DataArray : Array[0..99] of tDataRec; AnzData : Integer;
Delphi-Quellcode:
Anschließend wird das Array sortiert. Habe dafür einen uralten, nicht rekursiven Quicksort gefunden und an unsere Aufgabenstellung angepasst, der unter TP7 funktionieren müsste...
procedure ReadData;
var f : file of tDataRec; Idx : Integer; begin Idx :=0; AnzData:=0; assign(f,FileName); {$I-} reset(f); {$I+} if IOresult=0 then begin while not(eof(f)) do begin read(f,DataArray[Idx]); inc(Idx); end; close(f); AnzData:=Idx; end; end;
Delphi-Quellcode:
Nach einlesen und sortieren der Daten kannst du nun das Array auf dem Bildschirm ausgeben (Array von 0 bis AnzData-1 durchlaufen). Wenn du nach dem Einfügen von Datensätzen den Sort erneut aufrufst und die Daten speicherst, ist natürlich auch die Datei nach dem Namen sortiert.
procedure SortData; { Aufsteigend sortieren }
var s : Array[1..20,1..2]of Integer; { Typ : Record } i,j,l,r,sp : Integer; x : String[aa]; // Länge eintragen!! Hilf : tDataRec; begin sp:=1; s[1,1]:=0; s[1,2]:=AnzData-1; while sp>0 do begin l:=s[sp,1]; r:=s[sp,2]; dec(sp); while r>l do begin i:=l; j:=r; x:=DataArray[(r+l)div 2].Name; while i<=j do begin while (DataArray[i].Name<x) and (i<r) do inc(i); while (DataArray[j].Name>x) and (j>l) do dec(j); if i<=j then begin Hilf:=DataArray[i]; DataArray[i]:=DataArray[j]; DataArray[j]:=Hilf; inc(i); dec(j) end; end; if (r-i) < (j-l) then if l<j then begin inc(sp);s[sp,1]:=l;s[sp,2]:=j;l:=i end else l:=i else if i<r then begin inc(sp);s[sp,1]:=i;s[sp,2]:=r;r:=j end else r:=j end end end; Ich habe das obenstehende NICHT mit TP7 getestet - das ist nun dein Part. Eine Frage zum Schluss muss ich dann aber doch loswerden: Wieso machst du das mit Turbo Pascal? Gruß Ralph |
Re: Quicksort eines Datensatzes nach alphabet
so, besten dnak für die hilfe, ich teste das morgen früh mal weil ich nun erstmal weg muss
aber danke^^ TP7 verwende ich, weil wir das von der schule aus müssen wir lernen das da in info, deswegen aber frag mich nich wieso ich frag unseren lehrer immer mal danach, er sagt immer nur weils einfach is wenn ich dann sage es is sinnlos, verwendet heute keiner mehr wird das konsequent überhört^^ |
Re: Quicksort eines Datensatzes nach alphabet
Na, wenn es so ist, diskutieren kann man mit Lehreren ja nicht so wirklich.
Gruß Ralph |
Re: Quicksort eines Datensatzes nach alphabet
so, hab das nun probiert und es schient zumindest vom syntax her zu stimmen
allerdings konnt ichs noch nich so richtig testen weil die ausgabe nich so hinhauen will welche array soll ich da denn nun schlussendlich ausgeben, ich denke doch mal den DataArray oder ?oô |
Re: Quicksort eines Datensatzes nach alphabet
Korrekt! DataArray soll das EINZIGE Array sein, das du verwendest! Wenn du nicht klar kommst, wäre es wohl das Beste den kompletten Code durchzusehen. Kannst du mir auch als PN schicken. Ich kann mir gut vorstellen, dass einiges überflüssig geworden ist und gelöscht werden sollte.
Gruß Ralph |
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:00 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