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>
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>
Comment