AW: Springt nicht in die Schleife
Das sieht nach einer Datei mit fixer Spaltenlänge aus. Falls das zutrifft und Dir die Länge der einzelnen Felder bekannt ist, dann würde ich versuchen, die Zeile in ihre Bestandteile aufzuspalten und die einzelnen Felder im Anschluss zu trimmen.
|
AW: Springt nicht in die Schleife
Zitat:
|
AW: Springt nicht in die Schleife
Alles innerhalb derselben Datei? Wer denkt sich denn so einen Blödsinn aus? Hast Du eine Dokumentation zu den Formaten?
|
AW: Springt nicht in die Schleife
Wo ist denn die ursprüngliche Zuweisung von i?
|
AW: Springt nicht in die Schleife
Zitat:
Leider gibt es dort anscheinend keine Dokumentation zu. Ich hab mich schon mit dem Personal aus der Buchhaltung auseinander gesetzt um den Aufbau etwas zu verstehen. |
AW: Springt nicht in die Schleife
Zitat:
|
AW: Springt nicht in die Schleife
Welchen Typ hat eigentlich txt?
|
AW: Springt nicht in die Schleife
Zitat:
TStringArray = Array of String; |
AW: Springt nicht in die Schleife
Delphi-Quellcode:
Ich würde mal den Code etwas umschreiben und dann lässt sich der Inhalt von tmpS und tmpSX auch besser debuggen, somit auch die if-Bedingung
try
tmpline := txt[I]; tmpI:= StrToInt(Copy(tmpline,5,5)); tmpS:= Copy(tmpline],1,4); tmpSX := tmpline[10]; if (tmpS = ' ') and (tmpSX = ' ') then begin CurrentDebNr:= tmpI; end; I:= I+1; Continue; except //Continue; end; |
AW: Springt nicht in die Schleife
Acuh wenn es jetzt nicht besonders wichtig ist.
begin.. end kannst auch sparen. wenn nur eine zeile nach IF geschrieben wird.
Delphi-Quellcode:
gruss
if (tmpS = '') and (tmpSX = ' ') then
CurrentDebNr:= tmpI; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz