我有2个FORM.每个FORM里面分别有下列的代码，总是感觉好像有点重复，效率不高，大家帮我看看，要怎么更改呢？

[code delphi]
FORM3:
procedure TForm3.MP3ini;
var
Mp3Path1: AnsiString;
begin
OpenDialog1.Filter := 'Mp3 文件(*.mp3)|*.mp3|Wav 文件(*.wav)|*wav';
if OpenDialog1.Execute then
begin
Mp3Path1 := AnsiString(OpenDialog1.FileName);
BASS_StreamFree(hs);
hs := BASS_StreamCreateFile(False, PAnsiChar(Mp3Path1), 0, 0, 0);
if hs < BASS_ERROR_ENDED then
Text := 'ReminDer 1.0 ----- MP3文件打开失败'
else Text := string(Mp3Path1);
end;
label5.Caption :=opendialog1.FileName;
end;

FORM1:
procedure TForm1.setmp3;
var mp3path:AnsiString;
begin
OpenDialog1.Filter := 'Mp3 文件(*.mp3)|*.mp3|Wav 文件(*.wav)|*wav';
if OpenDialog1.Execute then
begin
Mp3Path := AnsiString(ABSTable1.FieldByName('声音文件').AsString);//有区别，一个是OPENDIALOG,另外一个是ABSTABLE取值，其他代码没有变化。
BASS_StreamFree(hs);
hs := BASS_StreamCreateFile(False, PAnsiChar(Mp3Path), 0, 0, 0);
if hs < BASS_ERROR_ENDED then
Text := 'ReminDer 1.0 ----- MP3文件打开失败'
else Text := 'ReminDer 1.0 ----- 正在播放: ' string(Mp3Path);
BASS_ChannelPlay(hs, False);
end;
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

編輯記錄

那為何不另外寫在一個unit呢?
這樣一來就可以共用一個unit了
要用的時候再uses進來即可~

1.我想了解一下你對設計的接觸有多深, 程式有一種procedure, function 可以使用! 
2.既然你知道代碼有重覆, 那你想如何做? 那些有可能可以怎麼做? 是不是可以先提出你的想法?

記得小時後學應數每次都有 F(X)=一堆亂七八糟的  , 那時候對 F(X) 沒什麼感覺....

X -->變數

------
額有朝天骨,眼中有靈光