Einzelnen Beitrag anzeigen

freakTAB

Registriert seit: 21. Jan 2003
Ort: Neubrandenburg
56 Beiträge
 
Delphi 7 Enterprise
 
#1

Datenmüll bei Konvertierung von Dateien TP5.5 -> Delphi 4

  Alt 8. Sep 2003, 14:23
Und da bin ich wieder mit meinem Konvertierungproblemchen.

Also ...
Ich habe verschiedene Strukturen (Records) die in einem alten DOS Programm in eine Datei gespeichert wurden. Ich schreibe nun an einem Konvertierungsprogramm welches diese Dateien einliest und in neue Strukturen packt. Soweit so gut - das klappt auch alles sofern ich mich auf die Strings beziehe - nur kommt er irgendwie mit den Zahlen stark durcheinander. Mal ein Bsp für solch Records
Alt:
Delphi-Quellcode:
Lief_recA= packed record
            TA_Status : LongInt; { Status   0...belegt    }
            L_Nr : str12; { interne Lief.-Nummer   }
            L_Name : str40;
            L_Erf : boolean; { Erfassung kg oder l
                                        true...kg              }

            L_Max_T : real48; { max. Rohmilchtemp.     }
            L_Art : Byte; { Tierart  1..Rinder     }
            L_Tour : smallint;
            L_Molk : Byte;
            L_Aktiv : Char; { Lief. aktiv o. passiv  }
            L_Statistik : Boolean;
            L_Referenz : Boolean;
            L_J_Ist : array [1..12,Qualitaet] of real48;
            L_VJ_Ist : array [1..3,Qualitaet] of real48;
            end;
Neu:
Delphi-Quellcode:
Lief_rec= Record
            L_Nr : str12; { interne Lief.-Nummer   }
            L_Name : str40;
            L_Erf : Char; { Erfassung kg oder l
                                        true...kg              }

            L_Max_T : real48; { max. Rohmilchtemp.     }
            L_Art : Char; { Tierart  1..Rinder     }
            L_Tour : SmallInt;
            L_Molk : Byte;
            L_Aktiv : Char; { Lief. aktiv o. passiv  }
            L_Statistik : Boolean;
            L_Referenz : Boolean;
            L_J_Ist : array [1..12,Qualitaet] of real48;
            L_VJ_Ist : array [1..3,Qualitaet] of real48;
            end;
gibt es irgendwas was ich nicht beachtet habe?

vielen Dank für die Antwort
  Mit Zitat antworten Zitat