F16 File of text und writeln

Lschreyer
Schreiberling
Avatar
Gender: n/a
Posts: 527
Registered: 02 / 2007
Subject:

F16 File of text und writeln

 · 
Posted: 25.08.2010 - 14:26  ·  #1
Ich habe folgenden Code:

Code
     
...
var F: File of text

Procedure testfile;
begin
      f16_changedir('');
      if not f16_pathexist('testdir') then
        f16_createdir('', 'testdir, 0, 0);
      endif;
      f16_changedir('testdir);
      writeln(serout, f16_getcurdir);
      f16_fileassign(F, 'testdir', 'test.txt');
      f16_filerewrite(F, [], 0, 0);
      writeln(F, 'Hallo');
      F16_Fileclose(f);
end;


Biem writeln kommt Compiler Fehler:
Undefined Identifier F

Warum erkennt er F nicht an?

Louis
Harry
Moderator
Avatar
Gender:
Location: zwischen Augsburg und Ulm
Age: 59
Posts: 2132
Registered: 03 / 2003
Subject:

Re: F16 File of text und writeln

 · 
Posted: 26.08.2010 - 14:31  ·  #2
Hats du oben ein uses UFAT16 drin ?

gruss
Harry
Gunter
Administrator
Avatar
Gender:
Location: Frankfurt Main / Germany
Posts: 1697
Registered: 02 / 2003
Subject:

Re: F16 File of text und writeln

 · 
Posted: 26.08.2010 - 21:35  ·  #3
Hi,

@Harry
ohne "uses" würde sich der Compiler schon viel früher beschweren!

@Louis
ich kann kein Problem nachstellen!
Poste doch mal eine komplette Source, die den Fehler zeigt.

Gruß
Gunter
Merlin
Administrator
Avatar
Gender:
Age: 24
Posts: 1408
Registered: 03 / 2005
Subject:

Re: F16 File of text und writeln

 · 
Posted: 27.08.2010 - 09:19  ·  #4
Hi Louis.

If the extract is accurate, you are missing a semicolon at the end of the line defining F. This might result in the definition of F being incomplete, hence the error.

But Gunter is right. Without a complete source it is almost impossible to help.

Regards

Merlin.
Lschreyer
Schreiberling
Avatar
Gender: n/a
Posts: 527
Registered: 02 / 2007
Subject:

Re: F16 File of text und writeln

 · 
Posted: 30.08.2010 - 08:23  ·  #5
Sorry für die späte Meldung, das Problem besteht immer noch, es ist nicht möglich in dieser Prozedur mit Writeln in die Datei zu schreiben.
F ist undefined, obwohl ich es als globale Variable definiert habe.
Das Problem ist momentan nach hinten geschoben, ist etwas anderes dazwischen gekommen. Mehr Code folgt demnächst.

Louis
Selected quotes for multi-quoting:   0

Registered users in this topic

Currently no registered users in this section

The statistic shows who was online during the last 5 minutes. Updated every 90 seconds.
MySQL Queries: 15 · Cache Hits: 14   90   104 · Page-Gen-Time: 0.024304s · Memory Usage: 2 MB · GZIP: on · Viewport: SMXL-HiDPI