Hya,
ich hab derzeit ein Problem mit dem bubblesort algorithmus.
ich hatte ihn bisher in schon vielen Programmen in delphi umgesetzt aber gerade will er einfach nicht.
Das programm stürtzt ab wenn der algorithmus durchläuft. und ich finde den fehler einfach nicht.
hier der code:
Delphi-Quellcode:
Procedure TForm1.Tausch(a,b:KontaktType);
var c:kontakttype;
Begin
c := a;
a := b;
b := c;
end;
Procedure TForm1.sortieren;
var i,dfs:integer;
fertig:boolean;
filename:
string;
begin
filename := ExtractFilePath(application.exename)+datafile;
assignfile(
df,filename);
if fileexists(filename)
then reset(
df)
else rewrite(
df);
for i := 1
to filesize(
df)
do
begin
read(
df,kontakte[i]);
end;
dfs := filesize(
df);
repeat
fertig := True;
for i := 1
to dfs-1
do
begin
if kontakte[i].
Name > kontakte[i+1].
Name then
begin
tausch(kontakte[i],kontakte[i+1]);
fertig := false;
end;
end;
until fertig = true;
seek(
df,0);
for i := 1
to dfs
do
begin
write(
df,kontakte[i]);
end;
closefile(
df);
end;
ist zum sortieren von datensätzen aus einer typisierten datei.
Wäre echt cool wenn von euch einer den fehler entdecken würde muß weiter kommen.
Greetz
Master_BB