To pytanie inne. Które z rozwiązań jest lepsze? czy to tylko kwestia smaku? one robią dokładnie to samo chodzi mi z punkty profesjonalisty i zapisu, Chyba że idzie to zrobić bardziej profesjonalnie już pomijając self :)
procedure TForm1.ToggleRecord;
begin
if assigned(self.idictionary) then
begin
if ClientDataSet1.RecNo = 1 then
begin
ClientDataSet1.Next;
PlayFile(self.exePath + '\' + self.ClientDataSet1.FieldByName('mp3')
.AsString, MediaPlayer1, Image2);
ClientDataSet1.Prior;
end;
if ClientDataSet1.RecNo = 2 then
begin
ClientDataSet1.Prior;
PlayFile(self.exePath + '\' + self.ClientDataSet1.FieldByName('mp3')
.AsString, MediaPlayer1, Image2);
ClientDataSet1.Next;
end;
end;
end;
albo
procedure TForm1.ToggleRecord;
var
Distance: Integer;
begin
if assigned(self.idictionary) then
begin
if ClientDataSet1.RecNo = 2 then
Distance := -1
else
Distance := 1;
ClientDataSet1.MoveBy(Distance);
PlayFile(self.exePath + '\' + self.ClientDataSet1.FieldByName('mp3')
.AsString, MediaPlayer1, Image2);
Distance := -Distance;
ClientDataSet1.MoveBy(Distance);
end;
end;