Turbo Pascal vs. 64bit

[stahli]

Ein Kollege nutzt einige TP-Programme, die weitestgehend bestimmte Dateien umwandeln. Über die Jahre wurden immer wieder kleine Anpassungen vorgenommen und die Projekte so weiter geführt.

Nun wird Win7 64bit eingeführt und die Programme laufen nicht mehr.

Was würdet Ihr empfehlen, um die Projekte weiter zu nutzen?

Ich habe mal versucht, unter D7 eine Konsolenanwendung zu kompilieren. Erst kannte Delphi eine Unit nicht (weiß nicht, ob die bei dem Kollegen zu suchen ist, oder zu TP gehörte) und nach dem Ausklammern derselben akzeptiert D7 den Typ "File of RecordMitStrings" nicht.

Es existieren etwa 30 solche Projekte.
Keine Ahnung, wieviel Probleme auftauchen, wenn man die auf Delphi portieren will.

Genauere Infos habe ich nicht. Habt Ihr grundsätzliche Meinungen?

Delphi-Quellcode:

program Konve20;
//uses crt;  // <-- D7 ERST MAL NICHT BEKANNT

type    pv_typ = record
          art                               : string[2];
          zeile                             : string;
        end;

         pv_datei = file of pv_typ; { <-- [Fehler] Konve20.dpr(10): Typ 'pv_typ' benötigt Finalization - nicht im Dateityp erlaubt}

const     rho=200/pi;
var
   einfile                              : text;
   ausfile                              : pv_datei;
   
   
.....

{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ Hauptprogramm ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
begin
     flag:='';
     flag2:='';
     farbe(15,0);
     clrscr;
     rahmen;
   
         bildschirm;
         clrscr;
         writeln('          *** Programm zur Umwandlung verschiedener Datenformate ***');

                        {   delay(500);
                           fenster;
                           gotoxy(27,3);
                           write('Bitte beachten !!!');
                           gotoxy(10,6);
                           write('Die umzuwandelnde Datei muss folgendes Format besitzen:');
                           gotoxy(9,9);
                           write('-> siehe K:\Transfer\Vermess\Hilfsprogramme\Konvertierung\');
                           writeln;
                           writeln;
                           gotoxy(20,11);
                           write('Datei:  Konvertierungsm”glichkeiten ');
                           gotoxy(26,14);
                           write('[ESC-Taste dr�cken]');
                           waitforesc;   }
            
               
                        bildschirm;
                        gotoxy(27,21);
                        write('-  Datens„tze einlesen  -');
                           fenster;
                         {  menue:       }
                           clrscr;
                         
                           writeln;
                           textcolor(15);
                           write('                     ');
                           writeln('***  Datens„tze einlesen  ***');
                           writeln;
                           writeln;
                           write('                     ');
                           textcolor(14);
                           write('N');
                           textcolor(15);
                           writeln('eues internes Format einlesen');
                           writeln;
                           write('                     ');
                           textcolor(14);
                           write('A');
                           textcolor(15);
                           writeln('ltes internes Format einlesen');
                           writeln;
                           write('                     ');
                           textcolor(14);
                           write('W');
                           textcolor(15);
                           writeln('ildformat (16-stellig) einlesen');
                           writeln;
                           write('               ');
                           textcolor(14);
                           write('R');
                           textcolor(15);
                           writeln('eduziertes Wildformat (8-stellig) einlesen');
                           writeln;
                           write('           ');
                           textcolor(14);
                           write('             ');
                           write('K');
                           textcolor(15);
                           write('oordinatenliste einlesen');
                           textcolor(14);
                         {  write('G');
                           textcolor(15);
                           writeln('PS-Koordinatenliste einlesen');  }
                           writeln;
                           writeln;

                           write('                          Auswahl:   ');
                           repeat until keypressed;t:=readkey;
                           write(t);
                           case t of
                                    'a','A' : begin
                                              info:='alt';
                                              konvertieren;
                                              end;
                                    'n','N' : begin
                                              info:='neu';
                                              konvertieren;
                                              end;
                                    'r','R' : begin
                                              info:='wild8';
                                              konvertieren;
                                              end;
                                    'w','W' : begin
                                              info:='wild16';
                                              konvertieren;
                                              end;
                                    'k','K' : begin
                                              info:='tab1';
                                              konvertieren;
                                              end;
                                 {   'g','G' : begin
                                              info:='tab2';
                                              konvertieren;
                                              end;   }
                             
                                 {   'z','Z' : goto start;  }
                           end;{of case}
                       {    goto menue;  }
                  

                        if (dateia<>'ende') and (dateia<>'') then
                        begin
                           bildschirm;
                           gotoxy(20,21);
                           write('-  Konvertieren in Ausgabe-Format  -');
                    
                           rueckkonvertieren;
                        end;
                           bildschirm;
                           gotoxy(20,21);
                           write('Das Programm wird beendet ! ');
                           delay(9000);

end.