Просмотр исходного кода

Fix a Cism and a copy&paste bug in SendFiles.

git-svn-id: file:///var/svn/tigccpp/trunk/tigcc/ide@898 9552661e-59e3-4036-b4f2-dbe53926924f
kevinkofler 17 лет назад
Родитель
Сommit
61b41999ab
1 измененных файлов с 1 добавлено и 5 удалено
  1. 1 5
      MainUnit.pas

+ 1 - 5
MainUnit.pas

@@ -4763,7 +4763,7 @@ begin
 					ShowDefaultMessageBox ('Can''t send Fargo program to a TI-89/89Ti/92+/V200.', 'Error', mtProgramError);
 					Abort;
 				end;
-				if TiEmuCalcType = cvTI92 and ProjectTarget != ptFargo then begin
+				if TiEmuCalcType = cvTI92 and ProjectTarget <> ptFargo then begin
 					ShowDefaultMessageBox ('Can''t send AMS program to a TI-92.', 'Error', mtProgramError);
 					Abort;
 				end;
@@ -4780,10 +4780,6 @@ begin
 						ShowDefaultMessageBox ('The file "' + FNList [I] + '" could not be found.', 'Error', mtProgramError);
 						Abort;
 					end;
-					if not CheckFileFormat (Connection, PChar (FNList [I]), nil, nil, @Size) then begin
-						ShowDefaultMessageBox ('Error sending file.', 'Error', mtProgramError);
-						Abort;
-					end;
 				end;
 				{ Now send the files. }
 				FirstI := Low (FNList);