Springt nicht in die Schleife

[DeddyH]

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.

[Timbuktu]

Zitat von DeddyH:

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.

Nein, leider sind sie nicht mit fixer Spaltenlänge. Das waren jetzt ja nur 2 von den 9 verschiedenen Aufbauarten. Und ich versuche ja gerade mit diesen stückchen Code eine davon zu identifizieren.

[DeddyH]

Alles innerhalb derselben Datei? Wer denkt sich denn so einen Blödsinn aus? Hast Du eine Dokumentation zu den Formaten?

[vagtler]

Wo ist denn die ursprüngliche Zuweisung von i?

[Timbuktu]

Zitat von DeddyH:

Alles innerhalb derselben Datei? Wer denkt sich denn so einen Blödsinn aus? Hast Du eine Dokumentation zu den Formaten?

Diese Daten kommen aus unserer/meiner Buchhaltung, die Offene Rechnungen bzw die letzten Bezahlung von Kunden beinhalten. Diese Datei wird ca 1 mal in der Woche generiert und per Hand gelesen und damit gearbeitet. Mein Abschlußprojekt ist jetzt halt, das das ganze automatisch von der .txt-Datei in eine SQL Datenbank eingelesen wird und dann von den Personen mit einem Programm begutachtet werden kann etc.
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.

[Timbuktu]

Zitat von vagtler:

Wo ist denn die ursprüngliche Zuweisung von i?

Die ist weiter oben in dem Code. Ich wollte jetzt nur nicht den ganzen Code hier rein kopieren, da es nur an dieser Stelle hapert.

[Lemmy]

Welchen Typ hat eigentlich txt?

[Timbuktu]

Zitat von Lemmy:

Welchen Typ hat eigentlich txt?

txt: TStringArray;
TStringArray = Array of String;

[UliBru]

Delphi-Quellcode:

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;

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

[EWeiss]

Acuh wenn es jetzt nicht besonders wichtig ist.
begin.. end kannst auch sparen. wenn nur eine zeile nach IF geschrieben wird.

Delphi-Quellcode:

if (tmpS = '') and (tmpSX = ' ') then
   CurrentDebNr:= tmpI;

gruss