Announcement

Collapse
No announcement yet.

Was bedeutet I/O-Fehler 104???

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Was bedeutet I/O-Fehler 104???

    bei folgenden Code bekomme ich einen I/O-Fehler 104 und finde nicht
    genau heraus wo.
    Ich habe jetzt eine Paradox-tabelle erstellt die datanorm3 entspricht
    und möchte mit unten stehendem Code die Datanormdatei in die Paradoxtabelle schreiben, aber irgendwie klappt es nicht so ganz!!!

    mfg

    markus

    procedure TDatanorm_importien.datanorm3importieren(dateidata norm:string;tabelle:ttable);
    var
    i,zeilennr:integer; {Zeilennummer}<br>
    dateizuoeffnen:textfile;<br>
    tabellenspalte,zeile:string;<br>
    begin<br>
    zeilennr := 0;<br>
    Assignfile(dateizuoeffnen,dateidatanorm);<br>
    {*****************Datei öffnen*****************}<br>
    reset(dateizuoeffnen);<br>
    {*********Kopfzeile auslesen*******************}<br>
    readln(dateizuoeffnen,zeile);<br>
    ShowMessage('Tes');<br>
    {***********Tabelle in Editiermodus versetzen******}<br>
    Datanorm3Table.edit;<br>
    {*******Kopfzeile in Tabelle speichern********}<br>
    Datanorm3Tablekopfzeile.value := zeile;<br>
    while not eof(dateizuoeffnen) do<br>
    begin<br>
    {********Zeile auslesen**********}<br>
    readln(zeile);<br>
    zeilennr := zeilennr + 1;<br>
    {*********Ausgelesene Zeile in Spalten verteilen******}<br>
    {Satzkennzeichen A}<br>
    Datanorm3Tablea.value := copy(zeile,1,1);<br>
    {Verarbeitungskennzeichen N}<br>
    Datanorm3Tablen.value := copy(zeile,2,2);<br>
    {Artikelnummer}<br>
    Datanorm3TableArtikelnummer.value := copy(zeile,3,17);<br>
    {0}<br>
    Datanorm3TableStringField0.value := copy(zeile,18,18);<br>
    {1}<br>
    Datanorm3TableStringField1.value := copy(zeile,19,19);<br>

    Datanorm3Table.next;<br>
    end;<br>

    closefile(dateizuoeffnen);<br>
    end;<br>
    Herzliche Grüße

    Markus Lemcke
    barrierefreies Webdesign

  • #2
    habe meinen fehler gefunden!!

    mfg

    markus lemck
    Herzliche Grüße

    Markus Lemcke
    barrierefreies Webdesign

    Comment

    Working...
    X