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