Joined: 29 Nov 2006 Posts: 449 Location: The yogurt country
Posted: Wed Oct 03, 2007 6:18 am Post subject:
Dark Byte wrote:
have you declared and defined the merge boolean?
Thanks DB.
Here is the working code (for me)
Code:
procedure TMainForm.Button5Click(Sender: TObject);
var merge: boolean;
app: word;
Extension: string;
resourcestring
strUnknownExtension='Unknown extension';
begin
merge:=false;
if CheckIfSaved=false then exit;
// OpenDialog1.InitialDir:=cheatenginedir;
// if Opendialog1.Execute then
begin
Extension:=uppercase(extractfileext('C:\my.ct'));
if (Extension<>'.PTR') and
(Extension<>'.AMT') and
(Extension<>'.GH') and
(Extension<>'.CET') and
(Extension<>'.CT2') and
(Extension<>'.CT3') and
(Extension<>'.CT') and
(Extension<>'.EXE') then raise exception.create(strUnknownExtension);
if ((numberofrecords>0) or (advancedoptions.numberofcodes>0)) and (Extension<>'.EXE') then app:=messagedlg('You wish to merge the current table with this table?',mtConfirmation,mbYesNoCancel,0);
case app of
mrCancel: exit;
mrYes: merge:=true;
mrNo: merge:=false;
end;
if advancedoptions.codelist.Count>0 then
begin
advancedoptions.Position:=podesigned;
advancedoptions.Left:=mainform.left-advancedoptions.Width;
advancedoptions.Top:=mainform.Top+mainform.Height-advancedoptions.Height;
if (advancedoptions.Left<0) or (advancedoptions.Top+advancedoptions.Height>screen.height) then
begin
advancedoptions.left:=0;
advancedoptions.Top:=screen.Height-advancedoptions.Height;
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum