elseの前に.Free分を出すとエラーが出るのですが

解決

エルク 2006-03-17 22:32:45 No: 20538

mgt : String;
StrList : TStringList;
begin
        if (Edit1.Text ='Sample') or (Edit1.Text ='SampleB') then
        ShowMessage('sample');
        if SaveDialog1.Execute = True then
        begin
        mgt := SaveDialog1.FileName;
        StrList := TStringList.Create;
        try
        StrList.Text := (Edit2.Text);
        StrList.SaveToFile(mgt);
        finally
        StrList.Free
        else

このようなソースなのですが、
ENDが必要な場所にELSEがあります、といってエラーを吐きます。
どなたか対処法をご存知でしょうか

Syake 2006-03-17 22:39:38 No: 20539

Try 〜 Finally 〜 end
は決まりなので StrList.Freeの後にendが必要です。

Syake 2006-03-17 22:44:15 No: 20540

それと
if **** then
begin
//適当な記述
else
はだめです

beginときたらendです。

if ***** then
begin
//適当な処理
try
//
finally
//
end;
end else begin
//適当な処理
end;

エルク 2006-03-17 22:45:25 No: 20541

ありがとうございます！
文法についてもう少し学ぶべきですね。
お騒がせしました

elk 2006-03-24 00:46:23 No: 20542

解決をおすのを忘れていました