Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
24. Mai 2003
Ok. Habs gefunden. In meinem Wrapper hat alles gestimmt, ich habe ihn nur falsch angewendet.
procedure Sort;
var
MyTypedFile : TTypedFile;
Record1, Record2 : TRecord;
s, s1, s2: String;
i, j: Integer;
begin
MyTypedFile := TTypedFile.Create(CutFilename(ParamStr(0))+'\'+DATAFILENAME);
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
24. Mai 2003
Den Verdacht hab eich auch, dass ich den Fehler an der falschen Stelle suche.
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
24. Mai 2003
So, ich habe für meine Datnebank einen Bubbelsort implementiert. Nur irgendwie macht er nicht so ganz, dass was er soll. Er sortiert nur bis zu Hälfte (Wenn er es tut. Die ersten datensätze sind noch sortiert.), und ab der Hälfte sind dann alle Datensätze identisch. Also so sieht das dann aus:
Ich benutze die Implementation von Daniel aus der Tutorialsparte.
procedure SwapIt(Record1,...