-
Forum: Object-Pascal / Delphi-Language
by khh,
9. Apr 2010
ich danke euch
EDIT : auch das oemtochar zeigt Wirkung, sprich Umlaute funktionieren.
War tatsächlich das fehlende SetLength.
Gruss KH
-
Forum: Object-Pascal / Delphi-Language
by khh,
9. Apr 2010
ja so hab ichs gemeint, hab mich falsch ausgedrückt ;-)
-
Forum: Object-Pascal / Delphi-Language
by khh,
9. Apr 2010
hallo Klaus, heisst ich lese die komplette Datei einfach 544 mal?
-
Forum: Object-Pascal / Delphi-Language
by khh,
9. Apr 2010
hallo zusammen,
das mit den Umlauten funktioniert zwar noch nicht, aber das ist erst mal zweitrangig.
Das Einlesen des einen DS aus dem Beispiel funktioniert und zwar folgendermassen:
tMyrecord = packed record
f1 : array of byte;
artnr: array of char;
f2 : array of byte;
-
Forum: Object-Pascal / Delphi-Language
by khh,
8. Apr 2010
werd das später nochmal in Ruhe durchchecken, muus jetzt erst mal noch was anderes machen.
ich danke euch bis hierhin, melde mich sicher nochmal.
-
Forum: Object-Pascal / Delphi-Language
by khh,
8. Apr 2010
sieht wirklich gut aus, muss ich mal sehen ob ich noch wo nen Fehler drin hatte ;-)
-
Forum: Object-Pascal / Delphi-Language
by khh,
8. Apr 2010
ich komme der Sache näher, so funktionierts "fast" :-)
bis auf die Umlaute krieg ich die richtige Bezeichnung, aber oemtochar bringt leider nix :-(
-
Forum: Object-Pascal / Delphi-Language
by khh,
8. Apr 2010
ist ja auch richtig
ich hab einfach einen Record definiert, insgesamt 1024 byte gross,
habe die einzelnen Werte die ich brauche definiert(sieht man ja im File wo die stehen, und den Rest wie zb "zeile" gelesen und "weggeworfen".
Leider funktioniert das so nicht, wie ich schon oben erwähnte.
test habe ich nur testweise gelesen um zu sehen was nach oemtochar "rüberkommt".
Endgültig brauche...
-
Forum: Object-Pascal / Delphi-Language
by khh,
8. Apr 2010
die gibts leider nicht :-(
Tag gefixt Mfg, mkinzler
-
Forum: Object-Pascal / Delphi-Language
by khh,
8. Apr 2010
klingt gut, werd ich mir dessen Methoden mal genauer anschaun.
Danke
-
Forum: Object-Pascal / Delphi-Language
by khh,
8. Apr 2010
gibts den keine Möglichkeit die einzelnen bytes direkt zu lesen?
Ich weiss ja an welcher Stelle die stehen, dann könnte man die evtl. direkt lesen?
-
Forum: Object-Pascal / Delphi-Language
by khh,
8. Apr 2010
ich hab jetzt
mit:
read(f,datensatz);
test:=datensatz.zeile;
name := datensatz.name;
oemtochar(PChar(test),PChar(test2));
oemtochar(PChar(name),PChar(name2));
die ersten 100 byte eingelesen, wobei Zeile 75 byte und Name 25 byte gross ist.
-
Forum: Object-Pascal / Delphi-Language
by khh,
8. Apr 2010
ja ist ein altes DOS-Programm
EDIT: heisst dann ich muss byte für byte mit oemtochar durchgehen?
-
Forum: Object-Pascal / Delphi-Language
by khh,
8. Apr 2010
leider nein, die Daten stammen aus eine uraltprogramm.
Ich brauch nur den Namen, also im Beispiel "Mailänder-Schnitte" , die Artikelnr "102" und den Preis 1.200
-
Forum: Object-Pascal / Delphi-Language
by khh,
8. Apr 2010
der DS ist nicht grösser als 1024 byte, aber der Zeichensatz, bzw. die Sonderzeichen machen Probleme.
Ich hänge hier mal eine Datei mit einem DS an.
Gruss KH
EDIT: ist keine txt datei, habe die Endung nur so vergeben, weil ne dat nicht hochzuladen ging.
-
Forum: Object-Pascal / Delphi-Language
by khh,
7. Apr 2010
ich danke euch für den Ansatz.
Gruss KH
-
Forum: Object-Pascal / Delphi-Language
by khh,
7. Apr 2010
also mit blockread die ganzen 1024 byte einlesen, aber wie dann weiter?
-
Forum: Object-Pascal / Delphi-Language
by khh,
7. Apr 2010
hallo zusammen,
ich steh grad auf dem Schlauch.
Ich hab ne Datei in der diverse Datensätze stehen.
jeder DS belegt 1024 Byte.
Wie würdet Ihr diese Sätze in eine Datei mit Feldtrennern überführen, damit diese später in eine DB geschrieben werden können.
Hab mall ne Ansatz mit blockread gefunden, denke aber das muss doch irgendwie einfacher zu bewerkstelligen sein.
Danke Gruss KH