--------------------------------------------------------------------------
Sprache : Delphi 1.0
Aufgaben : Funktionen und Prozeduren fuer Pascal-Strings
Hinweise : Programme, die diese Unit benutzen, muessen mit der
Anweisung $X+ compiliert werden
Fehler : Fehler bitte melden an: scheffczyk@verwaltung.uni-mainz.de
LTrim = Entfernen Leerzeichen vom Anfang von
Pascal-Strings
RTrim = Entfernen von Leerzeichen vom Ende von
Pascal-Strings
AllTrim = Entfernen von Leerzeichen vom Ende und vom Anfang
von Pascal-Strings
LeftStr = Rueckgabe eines Teils eines Pascal-Strings,
Ausgangspunkt ist der Anfang des Strings (von Links)
RightStr = Rueckgabe eines Teils eines Pascal-Strings
Ausgangspunkt ist das Ende des Strings (von Rechts)
SubStr = Rueckgabe eines Teils eines Pascal-Strings
Ausgangspunkt ist eine beliebige Stelle des Strings
LFill = Auffuellen eines Pascal-Strings durch Voranstellung
von n Zeichen auf eine bestimmte Laenge
RFill = Auffuellen eines Pascal-Strings durch
Anhaengung von n Zeichen auf eine bestimmte Laenge
Replicate = Erstellen eines Pascal-Strings, der aus einer
bestimmten Anzahl gleicher Zeichen besteht
Reduce = Loescht aus einem String direkt aufeinander
folgende gleiche Zeichen
ReplaceStr = Ersetzt Zeichen in einem String durch andere
Zeichen
MixedCase = Schreibt das erste Zeichen jedes Wortes in einem
Pascal-String gross und alle anderen Zeichen klein
ReplaceSubStr = Ersetzt Teile eines Pascal-Strings durch
andere Teile
DeleteSubStr = Loescht Teile eines Pascal-Strings, die
durch eine Anfangs- und eine EndSequenz def. sind
CharScan = Ueberprueft ob ein Zeichen in einem Pascal-String
vorhanden ist
ccsAnsi2Ascii = Setzt einen String vom Standard (ANSI) Windows-
Zeichensatz auf den DOS (OEM) Zeichensatz um, der
in der Systemsteuerung als Tastaturtreiber
angegeben ist
ccsAscii2Ansi = Setzt einen String von dem in der Systemsteuerung
als Tastaturtreiber angegebenen DOS (OEM)
Zeichensatz auf den Standard (ANSI) Windows
Zeichensatz um
---------------------------------------------------------------------------
AddCrLf - --------------------------------------------------------------------------
Name : AddCrLf
Sprache : Delphi 1.
AllTrim - --------------------------------------------------------------------------
Name : AllTrim
Typ : Funktion
Sprache : Delphi 1.
ccsAnsi2Ascii - --------------------------------------------------------------------------
Name : ccsAnsi2Ascii
Typ : Funktion
Sprache : Delphi 1.
ccsAscii2Ansi - --------------------------------------------------------------------------
Name : ccsAscii2Ansi
Typ : Funktion
Sprache : Delphi 1.
CharScan - --------------------------------------------------------------------------
Name : CharScan
Typ : Funktion
Sprache : Delphi 1.
DeleteSubStr - --------------------------------------------------------------------------
Name : StrDeleteSubStr
Typ : Funktion
Sprache : Delphi 1.
LeftStr - --------------------------------------------------------------------------
Name : LeftStr
Typ : Funktion
Sprache : Delphi 1.
LFill - --------------------------------------------------------------------------
Name : LFill
Typ : Funktion
Sprache : Delphi 1.
LTrim - --------------------------------------------------------------------------
Name : LTrim
Typ : Funktion
Sprache : Delphi 1.
MixedCase - --------------------------------------------------------------------------
Name : MixedCase
Sprache : Delphi 1.
Reduce - --------------------------------------------------------------------------
Name : Reduce
Typ : Funktion
Sprache : Delphi 1.
ReplaceStr - --------------------------------------------------------------------------
Name : ReplaceStr
Typ : Funktion
Sprache : Delphi 1.
ReplaceSubStr - --------------------------------------------------------------------------
Name : StrReplaceSubStr
Typ : Funktion
Sprache : Delphi 1.
Replicate - --------------------------------------------------------------------------
Name : Replicate
Typ : Funktion
Sprache : Delphi 1.
RFill - --------------------------------------------------------------------------
Name : RFill
Typ : Funktion
Sprache : Delphi 1.
RightStr - --------------------------------------------------------------------------
Name : RightStr
Typ : Funktion
Sprache : Delphi 1.
RTrim - --------------------------------------------------------------------------
Sprache : Delphi 1.
SubStr - --------------------------------------------------------------------------
Name : SubStr
Typ : Funktion
Sprache : Delphi 1.
function AddCrLf( SourceStr : String;
WhiteSpaces : String;
LineWidth : Byte): String;
--------------------------------------------------------------------------
Name : AddCrLf
Sprache : Delphi 1.0
Version : 1.0
Datum : 15.09.1996
Autor : Scheffczyk
Aufgabe : Fuegt in einen pascal-String Zeilenumbrueche ein, wobei der
Umbruch nach dem ersten Zeichen nach der gewuenschten Zeilenlaenge
erfolgt, das in einer Menge von Trennzeichen vorhanden ist.
Parameter : SourceStr : String : der umzuwandelnde String
WhiteSpaces : String : ein String mit Trennzeichen
LineWidth : Byte : Laenge der gewuenschten Zeile.
Rueckgabe : String : der umgewandelte String
Fehler :
Hinweise : Der Umbruch erfolgt erst nach dem Ende des Wortes, dass die
gewuenschte Zeilenlaenge ueberschreitet und nicht nach exakt
der angegebenen Zeilenlaenge.
-----------------------------------------------------------------------------------------------------------------------------------------------------
function AllTrim( SourceStr : String): String;
--------------------------------------------------------------------------
Name : AllTrim
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 12.07.1995
Autor : Scheffczyk
Aufgabe : Entfernt alle Leerzeichen vom Anfang und vom Ende eines Strings
Parameter : SourceStr : String = Der zu bearbeitene String
Rueckgabe : String = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : Wenn keine fuehrenden oder abschlissenden Leerzeichen vorhanden
sind, wird der Originalstring zurueckgegeben
-----------------------------------------------------------------------------------------------------------------------------------------------------
function ccsAnsi2Ascii(aString: String): String;
--------------------------------------------------------------------------
Name : ccsAnsi2Ascii
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 29.10.1996
Autor : Scheffczyk
Aufgabe : Setzt einen String vom Standard (ANSI) Windows-Zeichensatz auf den
DOS (OEM) Zeichensatz um, der in der Systemsteuerung als Tastatur-
treiber angegeben ist
Parameter : aString : String = der umzuwandelnde String
Rueckgabe : String = der umgewandelte String
Fehler : -
Hinweise : Diese Funktion ruft direkt die KernelFunktion 'AnsiToOem' auf
-----------------------------------------------------------------------------------------------------------------------------------------------------
function ccsAscii2Ansi(aString: String): String;
--------------------------------------------------------------------------
Name : ccsAscii2Ansi
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 29.10.1996
Autor : Scheffczyk
Aufgabe : Setzt einen String von dem in der Systemsteuerung als Tastatur-
treiber angegebenen DOS (OEM) Zeichensatz auf den Standard (ANSI)
Windows Zeichensatz um
Parameter : aString : String = der umzuwandelnde String
Rueckgabe : String = der umgewandelte String
Fehler : -
Hinweise : Diese Funktion ruft direkt die KernelFunktion 'OemToAnsi' auf
-----------------------------------------------------------------------------------------------------------------------------------------------------
function CharScan(aString: String; aChar : Char): Boolean;
--------------------------------------------------------------------------
Name : CharScan
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 15.09.1996
Autor : Scheffczyk
Aufgabe : Ueberprueft das Vorhandensein eines Zeichens in einem pascal-String
Parameter : aString : String = Zeiger auf einen null-term. String
aChar : Char = Das Zeichen, dessen Vorhandensein ueberprueft
werden soll
Rueckgabe : Boolean = True, wenn das Zéichen vorhanden ist, ansonsten
false
Fehler : -
Hinweise : -
-----------------------------------------------------------------------------------------------------------------------------------------------------
function DeleteSubStr( SourceStr,BeginChars,EndChars : String): String;
--------------------------------------------------------------------------
Name : StrDeleteSubStr
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 14.09.1996
Autor : Scheffczyk
Aufgabe : Loescht Teile eines pascal-Strings
Parameter : SourceStr : String = der zu veraendernde String
BeginChars: String = String mit der Anfangssequenz des zu
loeschenden Teilstrings
EndChars : String = String mit der Endsequenz des zu loeschenden
Teilstrings
Rueckgabe : String = der bearbeitete String
Fehler : -
Hinweise : ACHTUNG!!! Es werden ALLE passenden Teilstrings geloescht.
-----------------------------------------------------------------------------------------------------------------------------------------------------
function LeftStr( SourceStr : String;
CharNum : Byte): String;
--------------------------------------------------------------------------
Name : LeftStr
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 03.08.1995
Autor : Scheffczyk
Aufgabe : Liefert einen Teilstring des Originalstrings zurueck, wobei der
Anfang des Teilstring mit dem Anfang des Originalstings ueber-
einstimmt
Parameter : SourceStr : String = Der zu bearbeitene String
CharNum : Byte = Die Laenge des gewuenschten Teilstrings
Rueckgabe : String = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : Wenn die gewuenschte Laenge des Teilstrings groesser als die
Laenge des Originalstrings ist, wird der Originalstring
zurueckgegeben
-----------------------------------------------------------------------------------------------------------------------------------------------------
function LFill( SourceStr : String;
NewLen : Byte;
FillChar : Char): String;
--------------------------------------------------------------------------
Name : LFill
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 03.08.1995
Autor : Scheffczyk
Aufgabe : Fuellt einen String durch Voranstellung von Zeichen auf eine
gewuenschte Laenge auf
Parameter : SourceStr : String = Der zu bearbeitene String
NewLen : Byte = Die gewuenschte neue Laenge
FillChar : Char = Das zum Fuellen zu benutzende Zeichen
Rueckgabe : String = Der bearbeitete String
Fehler : -
Hinweise : Wenn die gewuenschte neue Laenge des Strings groesser als die
uerspruengliche Laenge, wird der Originalstring zurueckgegeben
-----------------------------------------------------------------------------------------------------------------------------------------------------
function LTrim( SourceStr : String): String;
--------------------------------------------------------------------------
Name : LTrim
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 03.08.1995
Autor : Scheffczyk
Aufgabe : Entfernt alle Leerzeichen vom Anfang eines Strings
Parameter : SourceStr : String = Der zu bearbeitene String
Rueckgabe : String = Der bearbeitete String
Fehler : -
Hinweise : Wenn keine fuehrenden Leerzeichen vorhanden sind, wird der
Originalstring zurueckgegeben
-----------------------------------------------------------------------------------------------------------------------------------------------------
function MixedCase( SourceStr: String): String;
--------------------------------------------------------------------------
Name : MixedCase
Sprache : Delphi 1.0
Version : 1.0
Datum : 26.02.1996
Autor : Scheffczyk
Aufgabe : Schreibt das erste Zeichen jedes Wortes im String gross und alle
anderen Zeichen klein
Parameter : SourceStr : String : Der umzuwandelnde String
Rueckgabe : String : Der umgewandelte String
Fehler :
Hinweise : Wenn SourceStr ein Leerstring ist wird ein Leerstring als
Ergebnis zurueckgegeben
-----------------------------------------------------------------------------------------------------------------------------------------------------
function Reduce( SourceStr,
RedChars : String): String;
--------------------------------------------------------------------------
Name : Reduce
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 05.08.1995
Autor : Scheffczyk
Aufgabe : Loescht in einem String direkt aufeinander folgende gleiche
Zeichen
Parameter : SourceStr : String = Der zu veraendernde String
RedChars : String = Die zu reduzierenden Zeichen
Rueckgabe : String = Der bearbeitete String
Fehler : -
Hinweise : -
-----------------------------------------------------------------------------------------------------------------------------------------------------
function ReplaceStr( SourceStr,OrgChars,newChars : String): String;
--------------------------------------------------------------------------
Name : ReplaceStr
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 02.04.1996
Autor : Scheffczyk
Aufgabe : Ersetzt ein Zeichen in einem String durch ein anderes Zeichen
Parameter : SourceStr : String = Der zu veraendernde String
OrgChars : String = Das zu ersetzende Zeichen
NewChars : String = Das anstelle des zu ersetzenden Zeichens
einzufuegende Zeichen
Rueckgabe : String = Der bearbeitete String
Fehler : -
Hinweise : -
-----------------------------------------------------------------------------------------------------------------------------------------------------
function ReplaceSubStr( SourceStr,OldChars,newChars : String): String;
--------------------------------------------------------------------------
Name : StrReplaceSubStr
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 15.09.1996
Autor : Scheffczyk
Aufgabe : Ersetzt Zeichen in einem pascal-String durch andere Zeichen
Parameter : SourceStr : String = der zu veraendernde String
OldChars : String = String mit den auszutauschenden Zeichen
newChars : String = String mit den Ersatz-Zeichen
Rueckgabe : String = der bearbeitete String
Fehler : -
Hinweise : ACHTUNG!!! Im Unterschied zur Funktion 'StrReplace' tauscht diese
Funktion den alten String als Ganzes gegen den neuen String aus.
-----------------------------------------------------------------------------------------------------------------------------------------------------
function Replicate( Len : Byte;
FillChar : Char): String;
--------------------------------------------------------------------------
Name : Replicate
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 05.08.1995
Autor : Scheffczyk
Aufgabe : Erstellt einen String aus einer bestimmten Anzahl gleicher Zeichen
Parameter : Len : Word = Die gewuenschte Laenge
FillChar : Char = Das zum Fuellen zu benutzende Zeichen
Rueckgabe : String = Der bearbeitete String
Fehler : -
Hinweise : -
-----------------------------------------------------------------------------------------------------------------------------------------------------
function RFill( SourceStr : String;
NewLen : Byte;
FillChar : Char): String;
--------------------------------------------------------------------------
Name : RFill
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 03.08.1995
Autor : Scheffczyk
Aufgabe : Fuellt einen String durch Anhaengung von Zeichen auf eine
gewuenschte Laenge auf
Parameter : SourceStr : String = Der zu bearbeitene String
NewLen : Byte = Die gewuenschte neue Laenge
FillChar : Char = Das zum Fuellen zu benutzende Zeichen
Rueckgabe : String = Der bearbeitete String
Fehler : -
Hinweise : Wenn die gewuenschte neue Laenge des Strings groesser als die
uerspruengliche Laenge, wird der Originalstring zurueckgegeben
-----------------------------------------------------------------------------------------------------------------------------------------------------
function RightStr( SourceStr : String;
CharNum : Byte): String;
--------------------------------------------------------------------------
Name : RightStr
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 12.07.1995
Autor : Scheffczyk
Aufgabe : Liefert einen Teilstring des Originalstrings zurueck, wobei das
Ende des Teilstring mit dem Ende des Originalstings ueber-
einstimmt
Parameter : SourceStr : String = Der zu bearbeitene String
CharNum : Byte = Die Laenge des gewuenschten Teilstrings
Rueckgabe : String = Der bearbeitete String
Fehler : -
Hinweise : Wenn die gewuenschte Laenge des Teilstrings groesser als die
Laenge des Originalstrings ist, wird der Originalstring
zurueckgegeben
-----------------------------------------------------------------------------------------------------------------------------------------------------
function RTrim( SourceStr : String): String;
--------------------------------------------------------------------------
Sprache : Delphi 1.0
Version : 1.0
Datum : 12.07.1995
Autor : Scheffczyk
Aufgabe : Entfernt alle Leerzeichen vom Ende eines Strings
Parameter : SourceStr : String = Der zu bearbeitene String
Rueckgabe : String = Der bearbeitete String
Fehler : -
Hinweise : Wenn keine abschliessenden Leerzeichen vorhanden sind, wird der
Originalstring zurueckgegeben
-----------------------------------------------------------------------------------------------------------------------------------------------------
function SubStr( SourceStr : String;
StartPos : Byte;
CharNum : Byte): String;
--------------------------------------------------------------------------
Name : SubStr
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 12.07.1995
Autor : Scheffczyk
Aufgabe : Liefert einen Teilstring des Originalstrings zurueck, wobei der
Anfang und das Ende des Teilstring frei bestimmt werden koennen
Parameter : SourceStr : String = Der zu bearbeitene String
StartPos : Byte = Die Position des ersten Zeichens des
gewuenschten Teilstrings
CharNum : Byte = Die Laenge des gewuenschten Teilstrings
Rueckgabe : String = Der bearbeitete String
Fehler : -
Hinweise : Wenn die gewuenschte Laenge des Teilstrings groesser als die
Laenge des Originalstrings ist, wird der Originalstring
zurueckgegeben
-----------------------------------------------------------------------------------------------------------------------------------------------------