--------------------------------------------------------------------------
Sprache : Delphi 1.0
Aufgaben : Funktionen und Prozeduren fuer null-terminierte Strings
Hinweise : Programme, die diese Unit benutzen, muessen mit der
Anweisung $X+ compiliert werden
Fehler : Fehler bitte melden an: scheffczyk@verwaltung.uni-mainz.de
Inhalt : StrLTrim = Entfernen von Leerzeichen vom Anfang
null-terminierter Strings
StrRTrim = Entfernen von Leerzeichen vom Ende
null-terminierter Strings
StrAllTrim = Entfernen von Leerzeichen vom Anfang und vom Ende
null-terminierter Strings
StrLeft = Rueckgabe eines Teils eines null-term. Strings,
Ausgangspunkt ist der Anfang des Strings (von Links)
StrRight = Rueckgabe eines Teils eines null-term. Strings
Ausgangspunkt ist das Ende des Strings (von Rechts)
StrSubStr = Rueckgabe eines Teils eines null-term. Strings
Ausgangspunkt ist eine beliebige Stelle des Strings
StrLFill = Auffuellen eines null-term. Strings durch Voran-
stellung von n Zeichen auf eine bestimmte Laenge
StrRFill = Auffuellen eines null-terminierten Strings durch
Anhaengung von n Zeichen auf eine bestimmte Laenge
StrReplicate = Erstellen eines null-term. Strings, der aus einer
bestimmten Anzahl gleicher Zeichen besteht
StrReduce = Loescht aus einem String direkt aufeinander
folgende gleiche Zeichen
StrReplace = Ersetzt Zeichen in einem null-term. String durch
andere Zeichen (ein Zeichen gegen ein anderes)
StrMixedCase = Schreibt das erste Zeichen jedes Wortes in einem
null-term. String gross und alle anderen Zeichen klein
StrReplaceSubStr = Ersetzt Teile eines null-term. Strings durch
andere Teile
StrDeleteSubStr = Loescht Teile eines null-term. Strings, die
durch eine Anfangs- und eine EndSequenz def. sind
StrCharScan = Ueberprueft ob ein Zeichen in einem null-term.
String vorhanden ist
---------------------------------------------------------------------------
StrAddCrLf - --------------------------------------------------------------------------
Name : StrAddCrLf
Sprache : Delphi 1.
StrAllTrim - --------------------------------------------------------------------------
Name : StrAllTrim
Typ : Funktion
Sprache : Delphi 1.
StrCharScan - --------------------------------------------------------------------------
Name : StrCharScan
Typ : Funktion
Sprache : Delphi 1.
StrDeleteSubStr - --------------------------------------------------------------------------
Name : StrDeleteSubStr
Typ : Funktion
Sprache : Delphi 1.
StrLeft - --------------------------------------------------------------------------
Name : StrLeft
Typ : Funktion
Sprache : Delphi 1.
StrLFill - --------------------------------------------------------------------------
Name : StrLFill
Typ : Funktion
Sprache : Delphi 1.
StrLTrim - --------------------------------------------------------------------------
Name : StrLTrim
Typ : Funktion
Sprache : Delphi 1.
StrMixedCase - --------------------------------------------------------------------------
Name : StrMixedCase
Sprache : Delphi 1.
StrReduce - --------------------------------------------------------------------------
Name : StrReduce
Typ : Funktion
Sprache : Delphi 1.
StrReplace - --------------------------------------------------------------------------
Name : StrReplace
Typ : Funktion
Sprache : Delphi 1.
StrReplaceSubStr - --------------------------------------------------------------------------
Name : StrReplaceSubStr
Typ : Funktion
Sprache : Delphi 1.
StrReplicate - --------------------------------------------------------------------------
Name : StrReplicate
Typ : Funktion
Sprache : Delphi 1.
StrRFill - --------------------------------------------------------------------------
Name : StrRFill
Typ : Funktion
Sprache : Delphi 1.
StrRight - --------------------------------------------------------------------------
Name : StrRight
Typ : Funktion
Sprache : Delphi 1.
StrRTrim - --------------------------------------------------------------------------
Name : StrLTrim
Typ : Funktion
Sprache : Delphi 1.
StrSubStr - --------------------------------------------------------------------------
Name : StrSubStr
Typ : Funktion
Sprache : Delphi 1.
function StrAddCrLf( SourceStr : PChar;
WhiteSpaces : PChar;
LineWidth : Byte): PChar;
--------------------------------------------------------------------------
Name : StrAddCrLf
Sprache : Delphi 1.0
Version : 1.0
Datum : 12.08.1996
Autor : Scheffczyk
Aufgabe : Fuegt in einen #0 term. 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 : PChar : Zeiger auf den umzuwandelnden String
WhiteSpaces : PChar : Zeiger auf einen String mit Trennzeichen
LineWidth : Byte : Laenge der gewuenschten Zeile.
Rueckgabe : PChar : Zeiger auf den umgewandelten String
Fehler :
Hinweise : SourceStr wird uebergeben, damit die Verantwortung sowohl fuer
die Erstellung, als auch fuer die Freigabe des Heapbereiches bei
dem aufrufenden Programm liegt
ACHTUNG! Der Originalstring wird verändert!
Der Umbruch erfolgt erst nach dem Ende des Wortes, dass die
gewuenschte Zeilenlaenge ueberschreitet und nicht nach exakt
der angegebenen Zeilenlaenge.
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrAllTrim( SourceStr : PChar): PChar;
--------------------------------------------------------------------------
Name : StrAllTrim
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 : PChar = Zeiger auf den zu bearbeitenen String
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : Wenn keine fuehrenden oder abschlissenden Leerzeichen vorhanden
sind, wird der Originalstring zurueckgegeben
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrCharScan(aPChar: PChar; aChar : Char): Boolean;
--------------------------------------------------------------------------
Name : StrCharScan
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.1
Datum : 1.0: 12.08.1996 1.1: 15.09.1996
Autor : Scheffczyk
Aufgabe : Ueberprueft das Vorhandensein eines Zeichens in einem null-term.
String
Parameter : aPChar : PChar = 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 StrDeleteSubStr( SourceStr,BeginChars,EndChars : PChar): PChar;
--------------------------------------------------------------------------
Name : StrDeleteSubStr
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 14.09.1996
Autor : Scheffczyk
Aufgabe : Loescht Teile eines null-term. Strings
Parameter : SourceStr : PChar = Zeiger auf den zu veraendernden String
BeginChars: PChar = Zeiger auf einen String mit der Anfangssequenz
des zu loeschenden Teilstrings
EndChars : PChar = Zeiger auf einen String mit der Endsequenz
des zu loeschenden Teilstrings
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : SourceStr wird uebergeben, damit die Verantwortung sowohl fuer
die Erstellung, als auch fuer die Freigabe des Heapbereiches bei
dem aufrufenden Programm liegt
ACHTUNG! Der Originalstring wird verändert!
ACHTUNG!!! Es werden ALLE passenden Teilstrings geloescht.
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrLeft( SourceStr : PChar;
CharNum : Word): PChar;
--------------------------------------------------------------------------
Name : StrLeft
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 : PChar = Zeiger auf den zu bearbeitenen String
CharNum : Word = Die Laenge des gewuenschten Teilstrings
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : Wenn die gewuenschte Laenge des Teilstrings groesser als die
Laenge des Originalstrings ist, wird der Originalstring
zurueckgegeben
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrLFill( SourceStr : PChar;
NewLen : Word;
FillChar : Char): PChar;
--------------------------------------------------------------------------
Name : StrLFill
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 : PChar = Zeiger auf den zu bearbeitenen String
NewLen : Word = Die gewuenschte neue Laenge
FillChar : Char = Das zum Fuellen zu benutzende Zeichen
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : Wenn die gewuenschte neue Laenge des Strings groesser als die
uerspruengliche Laenge, wird der Originalstring zurueckgegeben
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrLTrim( SourceStr : PChar): PChar;
--------------------------------------------------------------------------
Name : StrLTrim
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 12.07.1995
Autor : Scheffczyk
Aufgabe : Entfernt alle Leerzeichen vom Anfang eines Strings
Parameter : SourceStr : PChar = Zeiger auf den zu bearbeitenen String
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : Wenn keine fuehrenden Leerzeichen vorhanden sind, wird der
Originalstring zurueckgegeben
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrMixedCase( SourceStr: PChar): PChar;
--------------------------------------------------------------------------
Name : StrMixedCase
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 : PChar : Zeiger auf den umzuwandelnden String
Rueckgabe : PChar : Zeiger auf den umgewandelten String
Fehler :
Hinweise : SourceStr wird uebergeben, damit die Verantwortung sowohl fuer
die Erstellung, als auch fuer die Freigabe des Heapbereiches bei
dem aufrufenden Programm liegt
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrReduce( SourceStr,
ReduceChars : PChar): PChar;
--------------------------------------------------------------------------
Name : StrReduce
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 : PChar = Zeiger auf den zu veraendernden String
RedChars : PChar = Zeiger auf einen String mit den
zu reduzierenden Zeichen
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : SourceStr wird uebergeben, damit die Verantwortung sowohl fuer
die Erstellung, als auch fuer die Freigabe des Heapbereiches bei
dem aufrufenden Programm liegt
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrReplace( SourceStr,OldChars,newChars : PChar): PChar;
--------------------------------------------------------------------------
Name : StrReplace
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 02.04.1996
Autor : Scheffczyk
Aufgabe : Ersetzt Zeichen in einem null-term. String durch andere Zeichen.
Hierbei wird das erste Zeichen des Parameters 'OldChars' gegen das
erste Zeichen des Parameters 'newChars' ausgetauscht, das zweite
gegen das zweite, usw.
Parameter : SourceStr : PChar = Zeiger auf den zu veraendernden String
OldChars : PChar = Zeiger auf einen String mit den
auszutauschenden Zeichen
newChars : PChar = Zeiger auf einen String mit den
Ersatz-Zeichen
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : SourceStr wird uebergeben, damit die Verantwortung sowohl fuer
die Erstellung, als auch fuer die Freigabe des Heapbereiches bei
dem aufrufenden Programm liegt
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrReplaceSubStr( SourceStr,OldChars,newChars : PChar): PChar;
--------------------------------------------------------------------------
Name : StrReplaceSubStr
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 12.08.1996
Autor : Scheffczyk
Aufgabe : Ersetzt Zeichen in einem null-term. String durch andere Zeichen
Parameter : SourceStr : PChar = Zeiger auf den zu veraendernden String
OldChars : PChar = Zeiger auf einen String mit den
auszutauschenden Zeichen
newChars : PChar = Zeiger auf einen String mit den
Ersatz-Zeichen
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : SourceStr wird uebergeben, damit die Verantwortung sowohl fuer
die Erstellung, als auch fuer die Freigabe des Heapbereiches bei
dem aufrufenden Programm liegt
ACHTUNG! Der Originalstring wird verändert!
ACHTUNG!!! Im Unterschied zur Funktion 'StrReplace' tauscht diese
Funktion den alten String als Ganzes gegen den neuen String aus.
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrReplicate( SourceStr : PChar;
Len : Word;
FillChar : Char): PChar;
--------------------------------------------------------------------------
Name : StrReplicate
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 : SourceStr : PChar = Zeiger auf den zu bearbeitenen String
Len : Word = Die gewuenschte Laenge
FillChar : Char = Das zum Fuellen zu benutzende Zeichen
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : TargetStr wird uebergeben, damit die Verantwortung sowohl fuer
die Erstellung, als auch fuer die Freigabe des Heapbereiches bei
dem aufrufenden Programm liegt
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrRFill( SourceStr : PChar;
NewLen : Word;
FillChar : Char): PChar;
--------------------------------------------------------------------------
Name : StrRFill
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 : PChar = Zeiger auf den zu bearbeitenen String
NewLen : Word = Die gewuenschte neue Laenge
FillChar : Char = Das zum Fuellen zu benutzende Zeichen
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : Wenn die gewuenschte neue Laenge des Strings groesser als die
uerspruengliche Laenge, wird der Originalstring zurueckgegeben
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrRight( SourceStr : PChar;
CharNum : Word): PChar;
--------------------------------------------------------------------------
Name : StrRight
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 03.08.1995
Autor : Scheffczyk
Aufgabe : Liefert einen Teilstring des Originalstrings zurueck, wobei das
Ende des Teilstring mit dem Ende des Originalstings ueber-
einstimmt
Parameter : SourceStr : PChar = Zeiger auf den zu bearbeitenen String
CharNum : Byte = Die Laenge des gewuenschten Teilstrings
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : Wenn die gewuenschte Laenge des Teilstrings groesser als die
Laenge des Originalstrings ist, wird der Originalstring
zurueckgegeben
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrRTrim( SourceStr : PChar): PChar;
--------------------------------------------------------------------------
Name : StrLTrim
Typ : Funktion
Sprache : Delphi 1.0
Version : 1.0
Datum : 12.07.1995
Autor : Scheffczyk
Aufgabe : Entfernt alle Leerzeichen vom Ende eines Strings
Parameter : SourceStr : PChar = Zeiger auf den zu bearbeitenen String
Rueckgabe : PChar = Zeiger auf den bearbeiteten String
Fehler : -
Hinweise : Wenn keine abschliessenden Leerzeichen vorhanden sind, wird der
Originalstring zurueckgegeben
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------
function StrSubStr( SourceStr : PChar;
StartPos : Word;
CharNum : Word): PChar;
--------------------------------------------------------------------------
Name : StrSubStr
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 : PChar = Der zu bearbeitene String
StartPos : Word = Die Position des ersten Zeichens des
gewuenschten Teilstrings
CharNum : Word = Die Laenge des gewuenschten Teilstrings
Rueckgabe : PChar = Der bearbeitete String
Fehler : -
Hinweise : Wenn die gewuenschte Laenge des Teilstrings groesser als die
Laenge des Originalstrings ist, wird der Originalstring
zurueckgegeben
ACHTUNG! Der Originalstring wird verändert!
-----------------------------------------------------------------------------------------------------------------------------------------------------