Logo jkrieger.de section logo
invisible corner_top_left.gif
divider design elem. Home design elem.   design elem. Software design elem.   design elem. Science design elem.   design elem. Photographie design elem.   design elem. everythingelse design elem.   design elem. eMail design elem.
divider_end corner_top_right
Verlauf

unit jkTools: Beschreibung der Funktionen


Download:     24. Juni 2001,      jktools.pas (21,5 kB)

// FTP: gibt den Dateinamen aus einem FTP-Dateinamensstring mit Verzeichnissen zurück ('/' statt '\')
function FTPExtractFileName(fn:string):string;

// Dateien: gibt die Größe der Datei fn in Byte zurück
function filegetsize(fn:string):longint;

// TTreeView: gibt einen Pfad der Form "Node.name/node.name/" zurück
// wobei '/' durch divider übergeben wird
function GetTreePath(node:TTreeNode;divider:string):string;

// FTP: erzeugt einen "Rücksprungpfad" der Form '../../../' von einem Verzeichnis ins Grundverzeichnis
function FTPGetReturn(dir:string):string;

// WinAPI/Files: gibt einen, von der WinAPI erzeugten einmaligen Dateinamen für temporäre Dateien zurück
function GetTempFileName:string;

// JKConnect 3.0: gibt die verlinkten Dateien aus der HTML-Datei filename in sl zurück, relativ zu projpath
procedure ExtractLinkedFiles(projPath, filename:string; sl:TStringList);

// Files: fügt in die Text-Datei f die Datei filename ab der aktuellen Position ein
procedure InsertTextFile(var f:system.text; filename:string);

// Streams: schreibt den Text str in den Stream s
// Form: ----|-------------
//      länge|text
procedure WriteString(s:TStream; str:ansistring);

// Streams: liest einen string aus dem Stream s, Gegenstück zu 'WriteString' (s.o.)
// Form: ----|-------------
//      länge|text
function ReadString(s:TStream):ansistring;

// folgende 3 kopiert aus RXLibrary
// löscht führende Leerzeichen
function DelBSpace(const S: string): string

// löscht abschließende Leerzeichen
function DelESpace(const S: string): string;

// löscht führende und abschließende Leerzeichen
function DelRSpace(const S: string): string;
 
// FILE: gibt true zurück, wenn directory Unterverzeichnisse enthält
function hasSubdirectories(directory:string):boolean;

// kodiert data mit dem Schlüssel key (XOR-Kodierung)
function jkEncodeXOR(key, data:string):string;

// dekodiert data mit dem Schlüssel key (XOR-Kodierung)
function jkDecodeXOR(key, data:string):string;

// Packe einen Stream mittels ZLIB
procedure PackStream(inStream, outStream :TStream; CompressionLevel:TCompressionLevel);

// Entpacke einen Stream mittels ZLIB
procedure ExpandStream(inStream, outStream :TStream);
procedure ExpandStream(inStream, outStream :TStream; const BufferSize:longint);

// Zeige eine WWW-Datei im STandard-Browser (handle: application.handle)
procedure JKShowWWW(handle:THandle;url:string);

// zeige eine datei mit dem ihr zugeordneten Programm an bzw. starte eine EXE/BAT/COM/PIF-Datei
procedure JKShowFile(F:string);

// konvertiert eine HEX-Zahl in einen Integer
function HextoDec(const S: string): Longint;

// string: gibt 'false' für value=false, ansonsten 'true' zurück
function boolToStr(value:boolean):string;

// string: gibt true zurück, wenn nzr die in chars angegebenen "Buchstaben" in text vorkommen
function StringConsistsOf(text:string; chars: tjkchars):boolean;
type tjkchars = set of char;

// gibt die Anzahl der Zeilen (Trenner: #13#10) in einem String zurück
function NumberOfLines(text: string): longint;

// zeigt eine Fehlermeldung mit text an
procedure ShowErrorMessage(text: string);

// kürzt einen Vornamen auf die Initialen ab
function ShortenPrename(name: string): string;

 printable version ImpressumImpressum
corner_top_right2
verlauf_right.gif
corner_bottom_left.gif corner_bottom_left2 Copyright (c) J. Krieger corner_bottom_right.gif
invisible
last updated: 04.08.2019
file: https://www.jkrieger.de/programming/delphi/jktools.html
invisible