20. November 2009 15:31
{
Variablen:
Inputfile File
Line Text 1024
}
InputFile.TEXTMODE(TRUE);
InputFile.OPEN('c:\test\avistest.txt');
WHILE InputFile.POS <> InputFile.LEN DO BEGIN
InputFile.READ(Line);
//MESSAGE('%1 %2',InputFile.POS,InputFile.LEN);
END;
20. November 2009 17:26
InputFile.OPEN('c:\Test.txt');
InputFile.CREATEINSTREAM(InStreamVar);
WHILE NOT (InStreamVar.EOS()) DO
BEGIN
IntVar := InStreamVar.READTEXT(TxtVar,100);
MESSAGE(TxtVar + ' Size: ' + FORMAT(IntVar));
END;
InputFile.CLOSE();
23. November 2009 11:34