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: Konvertierungsmglichkeiten ');
gotoxy(26,14);
write('[ESC-Taste drcken]');
waitforesc; }
bildschirm;
gotoxy(27,21);
write('- Datenstze einlesen -');
fenster;
{ menue: }
clrscr;
writeln;
textcolor(15);
write(' ');
writeln('*** Datenstze 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.
30. Aug 2011, 11:26
http://www.StahliSoft.de
Zitat
Baum-Darstellung
