hi,
ich brauch mal wieder eure hilfe...
über ein Windows Script hol ich mir von einem
ftp Server ein .txt file runter...
diese .txt file muss ich anschließend als eine datenbankt datei ausgeben...
ich hab jetzt leier ein paar probleme beim einlesen des text files, vielleicht kann mir hierbei jemand helfen...
hier wäre mal die komplette procedure:
Delphi-Quellcode:
procedure TMain_Form.bitbtn_createClick(Sender: TObject);
var
File_ZPDM :
File;
Row_S :
String;
Row_R : TZPDM_Record;
i : integer;
begin
ListBox_Msg.Items.Add('
DB-Datei wird erstellt...');
bitbtn_exit.Enabled := False;
i := 2;
{$I-}
AssignFile(File_ZPDM,'
..\TXT_File\Datei.TXT');
Reset(File_ZPDM,i);
SetLength(Row_S,261);
ReadLn(File_ZPDM,Row_S,261);
If IOResult <> 0
Then
ShowMessage('
Einlesen der Textzeile ist Fehlgeschlagen')
Else
AddDBFile();
CloseFile(File_ZPDM);
{$I+}
end;
bei meinem readln bekomm ich immer einen fehler, weiss vielleicht jemand warum??? bzw. geht das überhaupt mit readln eine einzelne zeile meines .txt files einzulesen???
ich hoffe mir kann jemand helfen