******************************************************************} { MiscUtil Unit. Lots of useful functions/procedures } { Copyright (C) 1996-1997 by Artem A. Berman } { N o t f o r d i s t r i b u t i n g. } { } {
BuildDirectoryFileList -
BuildFullFileName -
CodeString -
ColorToStr -
Empty -
ExtractFileDriveChar -
ExtractFileDriveString -
FileLZCopy -
FontToStr -
JustFileName -
PosFromPos -
SetActiveApp - Mines from here
StrToColor - Next five are copyright (c) by
Stefan Boether <100023.
StrToFont -
StrToken -
WCharToString -
function BuildDirectoryFileList(FDirectory, Filter: string; FOnlyNames: Boolean): TStringList;
function BuildFullFileName(FName: TFileName): TFileName;
function CodeString(WhatArray: string; Sym: Byte): string;
function ColorToStr(Item: TColor): string;
function Empty(ss: string): Boolean;
function ExtractFileDriveChar(FPath: TFileName): Char;
function ExtractFileDriveString(FPath: TFileName): TFileName;
function FileLZCopy(fSource, fDest: PChar): Boolean;
function FontToStr(Value: TFont): string;
function JustFileName(FName: TFileName): TFileName;
function PosFromPos(SubStr, MainStr: string; Posit: Integer): Integer;
function SetActiveApp(FCaption: PChar): Boolean;
Mines from here
function StrToColor(const Item: string): TColor;
Next five are copyright (c) by
Stefan Boether <100023.275@compuserve.com>
function StrToFont(const Item: string): TFont;
function StrToken(var s: string; Seperator: Char): string;
function WCharToString(AValue: Array of WCHAR): string;