Älterern Eliza Quellcode in neuen übersetzten

[R2D2]

Hallo!

Ich habe im Internet Eliza für Delphi gefunden. nun habe ich versucht, das in eine Konsolenanwendung zu kopieren, aber ich bekomme in der Zeile
text_file : Text[4096];
einen Fehler. Der Compiler erwartet ein ; statt eine [.

Wie kann ich diesen Fehler beheben (für später benötige ich aber einen Dateityp File)?

Danke!

[BenjaminH]

Könnte es sein, dass du Statt Text einfach String verwenden kannst?
String[4096]

[R2D2]

Dann kommen Fehler:

Zitat:

String Literale können maximal 255 Elemente besitzten

Auserdem ist String keine File.

[glkgereon]

dann nimm halt einfach Text...

und guck ob irgendwo eine schleife explizit bis 4096 läuft, die musst du dann entsprechend umbiegen.

[Klaus01]

wenn die Variable text_file ein textfile sein soll

text_file : Text[4096]; ist

text_file: TextFile;
besser.

Wie wird die Variable denn später verwendet?

Grüße
Klaus

[R2D2]

Hier ist mal der gesammte Quellcode. Die text_file muss eine file für die späteren Operationen sein.

[Union]

Nimm doch lieber dieses http://www.torry.net/samples/samples.../elizademo.zip

[Klaus01]

Was tut denn das Programm wenn DU SetLength auskommentierst,
läuft es dann stabil und tut es was es tuen soll?

Delphi-Quellcode:

begin
  randomize;
//  SetLength(eliza_text_file, 4096);
  chat_with_eliza;
end.

Grüße
Klaus

[marabu]

Guten Morgen.

Zitat:

ich bekomme in der Zeiletext_file : Text[4096]; einen Fehler.

Es handelt sich hierbei um ISO Pascal. Da wird ein i/o buffer von - für damalige Verhältnisse gigantischen - 4 KB deklariert. Borland ist da mit SetTextBuf andere Wege gegangen. In Delphi einfach weglassen. Der Aufruf von SetLength() im main block ist wohl keine Originalzeile.

Grüße vom marabu

[R2D2]

Die Zeile SetLength ist tatsächlich bloß ein Versuch. Wenn ich sie auskommentiere, und schreibe
text_file: Text; kommt allerding woanders (bei dem erstellen der ersten Konsolenzeile) ein E/A-Fehler. Woran liegt das?