vb代码转为delphi

Question

各位大峡,哪为能将下列vb代码转为delphi,谢谢 
vb代码如下:
         Open "C:\Documents and Settings\Administrator\桌面\test2\1234.BMP" For Binary As #2
                A$ = "   "
                For I = 1 To 7572
                        Get #2, I, A$
                        Print #1, A$;
            
                        For K = 1 To 100
                              Next K
                        Next I

Answer 1

不知道搂住的意图如何，感觉上边的代码很怪异，Private Sub Command1_Click()
    Open "d:\1.BMP" For Output As #1    Open "d:\1234.BMP " For Binary As #2
    A$ = "       "
   
    For I = 1 To 7572
    
        Get #2, I, A$
        Print #1, A$;
        For K = 1 To 100
            Next K
    Next I
    Close #1
    Close #2
End Subprocedure TForm1.Button1Click(Sender: TObject);
var
  FileHandle1:integer;
  FileHandle2:integer;
  a:array[0..6] of char;
  i:integer;
  k:integer;
begin
  FileHandle1:=FileOpen('d:\1234.bmp',fmOpenRead);
  if FileExists('d:\2.bmp') then
   FileHandle2:=FileOpen('d:\2.bmp',fmOpenReadWrite)
  else
    FileHandle2:=FileCreate('d:\2.bmp') ;
  for i := 0 to 7571 do
  begin
  FileSeek(FileHandle1,i,0);
  FileRead(FileHandle1,a,7);
  FileWrite(FileHandle2,a,7 );
  end;
  FileClose(FileHandle1 );
  FileClose(FileHandle2);
end;这两组代码的效果一样，搂住参考下巴