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 |
|
|