paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 11:00:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

removed unused variable

Browse Source 
git-svn-id: trunk@7684 -
This commit is contained in:
vincents 2005-09-13 10:39:28 +00:00
parent fe472efdb3
commit f642713874
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ideintf/fieldseditor.pas
View File

@ -113,11 +113,10 @@ resourcestring
procedure TDSFieldsEditorFrm.AddFieldsActnExecute(Sender: TObject);
var FieldsList: TFieldsListFrm;
mr: TModalResult;
begin
FieldsList := TFieldsListFrm.Create(Self, LinkDataset, Designer);
try
mr := FieldsList.ShowModal;
FieldsList.ShowModal;
finally
FieldsList.Free;
end;