Forum: Programmieren allgemein
Delphi
by juergen,
30. Jan 2018
@Holger,
Ich habe die Datei aus Post #4 nur per LoadFromFile() in eine TStringList geladen und *direkt* wieder über SaveToFile() als Datei ausgegeben. Also kein Memo dazwischen.
himitsu hat ja gezeigt wo die Abbruch-Bedingung steht.
Danke für die Infos!
Forum: Programmieren allgemein
Delphi
by juergen,
29. Jan 2018
Hallo zusammen,
von Dalai kam der für mich entscheidende Tipp! (ich darf keine StringList nutzen, jetzt im Nachhinein ist das auch klar...)
Die einzelnen Dateien lade ich mir nun in einen TStream. Dann kopiere ich diesen Stream in einen TMemoryStream per copyfrom() fs_Gesamt.CopyFrom(fs, fs.Size);
Der Memorystream hat direkt eine SavetToFile-Methode. Somit nutze ich *keine* StringList mehr...
Forum: Programmieren allgemein
Delphi
by juergen,
29. Jan 2018
erstmal danke für die Tipps.
Ich hatte gehofft dass es mit TStream gehen könnte. Aber da wird auch nur bis "2127" gelesen.
var
fs: TStream;
begin
fs := TFileStream.Create(lbCsvDateien.Items, fmOpenRead);
try
try
Forum: Programmieren allgemein
Delphi
by juergen,
29. Jan 2018
Am Anhang mal ein Auszug aus einer der Dateien.
Für mich sieht das erste Zeichen wie ein Enterzeichen aus. Im Hex-Editor (Ultra-Edit im Hexmodus) verstehe ich nicht so ganz was da angezeigt wird. :oops:
Forum: Programmieren allgemein
Delphi
by juergen,
29. Jan 2018
Hallo zusammen,
ich muss bestimmte Dateien weiter verarbeiten. Dazu lade ich mir die Datei in eine TStringList. Dazu nutze ich die "LoadFormFile"-Methode.
Leider liest diese Methode die Datei nur soweit ein, bis "2"- Zeichen auftauchen.
Antwort
n. Gueltig: 244500018
18.01.2018 16:02:29.074 Resultat: Maschinenbarcode: 244500018 nicht aktiv !!!
18.01.2018 16:03:31.036 Datensatzart /...