Unit _4pchar

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

Classes

Functions

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.

Types

Constants

Variables


Functions


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

--------------------------------------------------------------------------


Types


Constants


Variables