hallo leute,
ich habe ein problem. und zwar habe ich mit TUpDown eine scrollfunktion eingerichtet, um mich durch die daten einer datenbank zu blättern. vorwärts geht es ohne probleme und sogar über EOF hinaus also er beginnt dann am anfang der datenbank. nur hab ich probleme mit dem rückwärtsscrollen. ich habe hier mal den quellcode wie es zurzeit in der prozedur aussieht:
Delphi-Quellcode:
procedure TFormDVD.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var p : byte;
begin
case Button of
btNext: begin
if EOF(VDVDFile) then seek(VDVDFile,0);
read(VDVDFile,HV);
with VDVD do begin
//Ausgabe
end;
end;
btPrev: begin
p:=filepos(VDVDFile);
if filepos(VDVDFile)= 2 then begin
seek(VDVDFile,filesize(VDVDFile));
p:=filepos(VDVDFile);
read(VDVDFile,HV);
with VDVD do begin
//Ausgabe
end;
end
else begin
p:=filepos(VDVDFile);
seek(VDVDFile,filepos(VDVDFile)-1);
read(VDVDFile,HV);
with VDVD do begin
//Ausgabe
end;
end;
end;
hat jemand eine ahnung woran das liegen könnte? danke im voraus!!