Unit MZStrUtils

------------------------------------------------------------------------ >>> MZStrUtils <<< Copyright (c) 1997 by Martin Zahl email: Martin.Zahl@Informatik.uni-oldenburg.de This unit implements a couple of string-routines for my private use. So anybody use this code on his own risk !! If you have other ideas, please send me a copy of the code !! Changed StrUtils to MZStrUtils 5/25/1998 Paul Rice to avoid duplicate documentation with Rx 2.40. ------------------------------------------------------------------------

Classes

Functions

Barcode - ----------------------------------------------------------------- Barcode ----------------------------------------------------------------- Berechnet eine Prüfziffer für den übergebenen Barcode und liefert den neuen Barcode + 2 Prüfziffern zurück
Change -
DeleteFiles -
GetTempname -
GetVariantType -
GreaterCheck - ----------------------------------------------------------------------// Wenn Feld1 > Feld2 dann tausche ----------------------------------------------------------------------//
InCode - ----------------------------------------------------------------- InCode ----------------------------------------------------------------- Wandelt die Sonderzeichen in einem String zu "echten" Sonderzeichen um.
InDate - ----------------------------------------------------------------- InDate ----------------------------------------------------------------- MM/TT/JJ
InTime - MM/TT/JJ

----------------------------------------------------------------- InTime ----------------------------------------------------------------- HH:MM:SS
IsNumeric - ----------------------------------------------------------------- IsNumeric ----------------------------------------------------------------- Überprüft, ob ein übergebener String nur Zahlen enthält Dabei kann die Zahl bis zu 256 Zeichen lang sein.
NrFormat - HH:MM:SS

----------------------------------------------------------------- NrFormat ----------------------------------------------------------------- Füllt einen String rechtsbündig mit einer angegebenen Anzahl von Nulle auf.
TranslatetoOEM - case

Types

Constants

Variables


Functions


function Barcode(Inhalt:string):string;

----------------------------------------------------------------- Barcode ----------------------------------------------------------------- Berechnet eine Prüfziffer für den übergebenen Barcode und liefert den neuen Barcode + 2 Prüfziffern zurück

procedure Change(var inhalt:string;alt:string;neu:variant);


function DeleteFiles(Dateinamen:string):boolean;


function GetTempname : string;


function GetVariantType(const v: variant): string;


procedure GreaterCheck(var Feld1:variant;var Feld2:variant);

----------------------------------------------------------------------// Wenn Feld1 > Feld2 dann tausche ----------------------------------------------------------------------//

function InCode(zeile:string;trennzeichen:char):string;

----------------------------------------------------------------- InCode ----------------------------------------------------------------- Wandelt die Sonderzeichen in einem String zu "echten" Sonderzeichen um. Beispiel: '#13#10' => #13#10

function InDate(zeile:string):string;

----------------------------------------------------------------- InDate ----------------------------------------------------------------- MM/TT/JJ

function InTime(zeile:string):string;

MM/TT/JJ

----------------------------------------------------------------- InTime ----------------------------------------------------------------- HH:MM:SS


function IsNumeric(zeile:string):boolean;

----------------------------------------------------------------- IsNumeric ----------------------------------------------------------------- Überprüft, ob ein übergebener String nur Zahlen enthält Dabei kann die Zahl bis zu 256 Zeichen lang sein.

function NrFormat(zeile:variant;stellen:byte):string;

HH:MM:SS

----------------------------------------------------------------- NrFormat ----------------------------------------------------------------- Füllt einen String rechtsbündig mit einer angegebenen Anzahl von Nulle auf.


procedure TranslatetoOEM(var zeile:string);

case

Types


Constants


Variables