Functions

Included Fuctions

DIM              Dimension your Variables / Strings .....

DIM name as Type

PINCLUDE    Include a Pascal sourcefile

PINCLUDE pascalfile.pas

INCLUDE      Include a Basic sourcefile

INCLUDE basicfile.bas

?                  Print a Variable, Text or what you have to Print out to the                 `                          Console or a File.

? `Text´   |  or   ? Var   |  or  ? String                                                          ? filehandle,text

INCLUDELIB Libraryname

Include a BasPas Library, generated with mlib

see also Side Language

+P  Between +P and -P you can write your Pascalsource.

Start Pascalsource in Basicfile

-P   Between +P and -P you can write your Pascalsource

Ends Pascalsource in Basicfile

   
   

BasPasLib Functions

Function TrimAllBP( s : String) : String

Call it:   String = Trim(String)

This trims all Chracters under 32. Not only the SPACE Character.

Function LTrimBP( s : String) : String

Call it:   String = LTrim(String)

Replaces the Pascal Routine.

This Version cut all Characters under ASCII <33

Function RTrimBP( s : String) : String

Call it:   String = RTrim(String)

Replaces the Pascal Routine.

This Version cut all Characters under ASCII <33

Function ExtractBP(ss : String;cc : String) : String

Call it: String = Extract(SourceString,SearchString)

Extract(Mainstring,Searchstring)

Example:
a = `abcdefg´
b = `cd´
c = Extract(a,b)
The Result is: `ab´

Function RemainBP(ss : String;cc : String) : String

Call it:  String = Remain(SouceString,SearchString)

Remain(Mainstring,Searchstring)

Example:
a = `abcdefg´
b = `cd´
c = Remain(a,b)
The Result is: `efg´

Function PRemainBP(ss : String;fxa : Byte) : String

Call it:  String = PRemain(SourceString,Position)

PRemain(Mainstring,Position)

Example:
a = `abcdefg´
c = PRemain(a,4)
The Result is: `defg´
 

Function ReplaceBP(Var main: String; such : String; rep :_ String) : String

Call it: String = Replace(SourceString,SearchString,ReplaceString)

Replace(SourceString,SearchString,ReplaceString)

Replaces only the first agreement

Function ReplaceOutS(Var main: String; such : String; rep :_ String) : String

Call it: String = ReplaceOutS(SourceString,SearchString,ReplaceString)

ReplaceOutS(SourceString,SearchString,ReplaceString)

Relaces SearchString with Replacestring, but not insideStringmarkers 

`not inside me´

Function ReplaceAllBP(Var main: String; such : String; rep : String) : String

Call it: String = ReplaceAll(SourceString,SearchString,ReplaceString)

ReplaceAll(SourceString,SearchString,ReplaceString)

Replaces all agreements

PROCEDURE OpenReadBP(VAR fh : Text; name : String)

Call it: OpenRead(filehandle, filename)

Uses Assign and Reset.

PROCEDURE OpenWriteBP(VAR fh : Text; name : String)

Call it: OpenWrite(filehandle, filename)

Uses Assign and Rewrite.

PROCEDURE OpenAppendBP(VAR fh : Text; name : String)

Call it: OpenAppend(filehandle, filename)

Uses Assign and Append.

Function GetFirstWord(String)

Call it: String = GetFirstWord(String)

This returns the first Textword from a String, the Delimiterstring is only the space character.

Example:                                                                                                            a = `This is a Test´                                                                                            b = GetFirstString( a )

It returns `This´ in b

Function CutFirstWord(String)

Call it: String = CutFirstWord(String)

This returns the Remainder from a String, the Delimiterstring is only the space character.

Example:                                                                                                            a = `This is a Test´                                                                                            b = CutFirstString( a )

It returns `is a Test´ in b