Forum > General

Exception Class "Unknown"

(1/1)

captian jaster:
It looks like i did everything right :\

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---program PScript; {$mode objfpc}{$H+} uses  Classes,SysUtils,Strutils; Var Script:TStringList; Counter:Integer = 1; begin  Script := TStringList.Create;  Script.NameValueSeparator := ':';  Script.LoadfromFile('text.ps');  IF NOT(Script.Strings[0] = LowerCase('#pscript'))Then begin Writeln('NOT A SCRIPT!'); Readln; End Else  begin    Repeat    IF(AnsiContainsStr(Script.Strings[Counter],lowercase('println')))Then Writeln(Script.Names[Counter]);    IF(AnsiContainsStr(Script.Strings[Counter],lowercase('readcom')))Then Readln;    Inc(Counter);    until(Counter = Script.Count);  end;end.               Im trying to make my own little script like thing :D. This is like a test engine.
(Also i know the Script.Count is zero based. The First line of the script is #PScript so its done that way to skip reading that line)

eny:
Probably the scriptfile text.ps doesn't exist.

captian jaster:
That was the problem  :-[
I had mis named the file D:

Navigation

[0] Message Index