BrainModular

[script] ptTextField type

2009-12-30T02:04:33+02:00

hi bsork

great, this works perfectly !

and yes, you can avoid looping:

CODE:

var str_tmp : String;begin     str_tmp := GetStringValue(filein);end;

but after a few hours of trying Pascal, it seems to me that you *have* to loop for about (nearly) everything

thanks again !

_yvan (obliged to write code by/for manecante)

Statistics: Posted by manecante — 30 Dec 2009, 01:04

[script] ptTextField type

2009-12-30T01:19:53+02:00

Here's an example from a file I think is in the AddOns (TextFile2Data):

CODE:

...VAR filename   : String;...PROCEDURE init;BEGIN    ...  pFilename := CreateParam('file name', ptTextField); SetIsOutput(pFilename, FALSE);  ...END; // initPROCEDURE GetFileName;  VAR i : integer;  VAR c : String;  VAR s : String;BEGIN  s := '';  filename := GetStringValue(pFileName);  FOR i := 1 TO (length(filename)) DO BEGIN    c := copy(filename, i, 1);    IF (c <> '"') THEN      s := s + c;  END;  filename := s;  writeln('FileName: ' + filename);END; // GetFileName...

Hope this helps.

Actually, I'm not 100% sure that you have to create a loop and copy the string one character at the time, but at least it works

Statistics: Posted by bsork — 30 Dec 2009, 00:19

[script] ptTextField type

2009-12-30T00:37:23+02:00

hello

Pascal n00b question:
I cannot seem to find the correct type for ptTextField:

CODE:

...filein := createParam('filename', ptTextField);...

I was expecting to get a String with GetValue(filein) but I get a "type mismatch" error...
it seems that I get 1 single, which is an ASCII value of the 1st letter of the typed in text.

am I wrong assuming that it should be a String (or an array of ascii chars) ???

if yes, how can I get the value of the string entered in the textfield ?

cheers

Statistics: Posted by manecante — 29 Dec 2009, 23:37

[script] ptTextField type

2009-12-30T02:04:33+02:00

hi bsork

great, this works perfectly !

and yes, you can avoid looping:

CODE:

var str_tmp : String;begin     str_tmp := GetStringValue(filein);end;

but after a few hours of trying Pascal, it seems to me that you *have* to loop for about (nearly) everything

thanks again !

_yvan (obliged to write code by/for manecante)

Statistics: Posted by manecante — 30 Dec 2009, 01:04

[script] ptTextField type

2009-12-30T01:19:53+02:00

Here's an example from a file I think is in the AddOns (TextFile2Data):

CODE:

...VAR filename   : String;...PROCEDURE init;BEGIN    ...  pFilename := CreateParam('file name', ptTextField); SetIsOutput(pFilename, FALSE);  ...END; // initPROCEDURE GetFileName;  VAR i : integer;  VAR c : String;  VAR s : String;BEGIN  s := '';  filename := GetStringValue(pFileName);  FOR i := 1 TO (length(filename)) DO BEGIN    c := copy(filename, i, 1);    IF (c <> '"') THEN      s := s + c;  END;  filename := s;  writeln('FileName: ' + filename);END; // GetFileName...

Hope this helps.

Actually, I'm not 100% sure that you have to create a loop and copy the string one character at the time, but at least it works

Statistics: Posted by bsork — 30 Dec 2009, 00:19

[script] ptTextField type

2009-12-30T00:37:23+02:00

hello

Pascal n00b question:
I cannot seem to find the correct type for ptTextField:

CODE:

...filein := createParam('filename', ptTextField);...

Statistics: Posted by manecante — 29 Dec 2009, 23:37