Преобразования строк из и в другие типы

Ascii --> String

2013-08-20T15:46:26+07:00

Code:

{ **** UBPFD *********** by delphibase.endimus.com ****

>> Преобразование набора чисел, предопределённых символом "#" в строку

Функция преобразует набор чисел, предопределённых символом "#" в

соответствующую строку. Каждое число в наборе чисел должно представлять из

себя код символа по ASCII таблице.

Например, если AsciiString '#72#101#108#108#111', то Result = 'Hello';

Зависимости: sysutils, system

Автор: VID, vidsnap@mail.ru, ICQ:132234868, Махачкала

Дата: 26 апреля 2002 г.

***************************************************** }

function ASCIIToStr(AsciiString: string): string;

var

I, X, L, Lastpos: Integer;

CurDIGChar, CurrAddChar, RS: string;

begin

RESULT := '';

L := Length(AsciiString);

if L = 0then

Exit;

X := 0;

LASTPOS := 1;

repeat

I := X;

CurDIGChar := '';

repeat

I := I + 1;

if AsciiString[I] <> '#'then

CurDIGChar := CurDIGChar + AsciiString[I];

until (AsciiString[I] = '#') or (i = l);

X := I;

if CurDIGChar <> ''then

begin

try

CurrAddChar := CHR(STRTOINT(CurDIGChar));

except CurrAddChar := '';

end;

Insert(CurrAddChar, RS, lastpos);

LastPos := LastPos + Length(CurrAddChar);

end;

until (X >= L) or (I >= L);

Result := RS;

end;

BCD --> String

2013-08-20T15:38:19+07:00

Code:

function BCDToNumString(const inStr: string): string;

procedure UnPack(ch: Char; var ch1, ch2: Char);

begin

ch1 := Chr((Ord(ch) and$F) + $30);

ch2 := Chr(((Ord(ch) shr4) and$F) + $30);

Assert((ch1 >= '0') and (ch1 <= '9'));

Assert((ch2 >= '0') and (ch2 <= '9'));

end;

var

i: Integer;

begin

SetLength(Result, Length(inStr) * 2);

for i := 1to Length(inStr) do

UnPack(inStr[i], Result[2 * i - 1], Result[2 * i]);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

S1, S2: string;

begin

S1 := '15151515151515151515';

S2 := NumStringToBCD(S1);

memo1.lines.add('S1: ' + S1);

memo1.lines.add('Length(S2): ' + IntToStr(Length(S2)));

memo1.lines.add('S2 unpacked again: ' + BCDToNumString(S2));

end;

Взято с сайтаhttps://www.swissdelphicenter.ch/en/tipsindex

BIN --> Byte

2013-08-20T15:31:35+07:00

Code:

function BinStrToByte(a_sBinStr: string): byte;

var

i: integer;

begin

Result := 0;

for i := 1to length(a_sBinStr) do

Result := (Result shl1) or byte(a_sBinStr[i] = '1');

end;

https://delphiworld.narod

DelphiWorld 6.0

BIN --> Integer

2013-08-20T15:26:56+07:00

Code:

function BinToInt(Value: string): Integer;

var

i, iValueSize: Integer;

begin

Result := 0;

iValueSize := Length(Value);

for i := iValueSize downto1do

if Value[i] = '1'then Result := Result + (1shl (iValueSize - i));

end;

Взято с сайта: https://www.swissdelphicenter

Code:

{by Andre Fritzsche}

unit BinConvert;

interface

//Wandelt Bytewert (Value) zu Binarwert und trennt mit Splitter Hi- und Lo-Bits

function ToBin(Value: Byte; Splitter: Char): string; overload;

//Wandelt Wordwert (Value) zu Binarwert und trennt mit Splitter Hi- und Lo-Byte

function ToBin(Value: Word; Splitter: Char): string; overload;

//Wandelt Binarwert (String) zu Zahl (Cardinal)

function BinTo(Value: string): Cardinal;

implementation

{------------------------------------------------------------------------------}

function ToBin(Value: Byte; Splitter: Char): string;

var

val, bit, intX: Byte;

begin

val := Value;

for intX := 0to7do

begin//Alle 8 Bits durchlaufen

bit := 48; //48 (='0') zu bit

val := val shr1; //Value um 1 Bit nach rechts verschieben

asm

adc bit,0//CarryFlag zu bit addieren

end;

if intX = 4then Result := Splitter + Result;

Result := Chr(bit) + Result; //zu Result hinzufugen

end;

{------------------------------------------------------------------------------}

function ToBin(Value: Word; Splitter: Char): string;

begin

Result := ToBin(Byte(Hi(Value)), Splitter) + Splitter + ToBin(Byte(Lo(Value)), Splitter);

end;

{------------------------------------------------------------------------------}

function BinTo(Value: string): Cardinal;

var

intX, PosCnt: Byte;

begin

Result := 0;

PosCnt := 0;

for intX := Length(Value) - 1downto0do//zeichen von rechts durchlaufen

case Value[intX + 1] of//prufen, ob 0 oder 1

'0': Inc(PosCnt); //bei 0 nur Pos-Zahler erhohen

'1':

begin//bei 1 Bit an Position einfugen

Result := Result or (1shl PosCnt);

Inc(PosCnt); //und Zahler erhohen

end;

{------------------------------------------------------------------------------}

end.

Взято с сайта: https://www.swissdelphicenter

Byte --> BIN

2013-08-20T15:33:34+07:00

Code:

function ByteToBinStr(a_bByte: byte): string;

var

i: integer;

begin

SetLength(Result, 8);

for i := 8downto1do

begin

Result[i] := chr($30 + (a_bByte and1));

a_bByte := a_bByte shr1;

end;

https://delphiworld.narod

DelphiWorld 6.0

Hex --> BIN

2013-08-20T15:25:46+07:00

Code:

function HexToBin(Hexadecimal: string): string;

const

BCD: array [0..15] ofstring =

('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',

'1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');

var

i: integer;

begin

for i := Length(Hexadecimal) downto1do

Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(HexToBin('FFA1'));

// Returns 1111111110100001

end;

Взято с сайта: https://www.swissdelphicenter

Hex --> Char

2013-08-20T15:21:11+07:00

Code:

var

Str: Char;

begin

Str := 'В';

Form1.Caption := Format('%x', [Ord(Str)]);

end;

https://delphiworld.narod

DelphiWorld 6.0

Hex --> Integer

2013-08-20T15:22:00+07:00

Code:

var

i : integer

s : string;

begin

s := '$'+'20FF';

i := StrToInt(a);

end;

©Drkb::00937

Взято из https://forum.sources.ru

Code:

CONST HEX : ARRAY['A'..'F'] OF INTEGER = (10,11,12,13,14,15);

VAR

str : String;

Int,

i : integer;

BEGIN

READLN(str);

Int := 0;

FOR i := 1TO Length(str) DO

IF str[i] < 'A'THEN

Int := Int * 16 + ORD(str[i]) - 48

ELSE

Int := Int * 16 + HEX[str[i]];

WRITELN(Int);

READLN;

END.

https://delphiworld.narod

DelphiWorld 6.0

Hex --> String

2013-08-20T15:20:17+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

const Source: string = '4D 5A';

var S: string;

t: Integer;

begin

with TStringList.Create do

try

Text := StringReplace(Source, #32, #13#10, [rfReplaceAll]);

S := '';

for t := 0to Count - 1do

S := S + Chr(StrToInt('$' + Strings[t]));

ShowMessage(S);

finally

Free;

end;

Автор:Song

Взято из https://forum.sources

HKey --> String?

2013-08-20T15:39:56+07:00

Code:

const

HKEYNames: array[0..6] ofstring =

('HKEY_CLASSES_ROOT',

'HKEY_CURRENT_USER',

'HKEY_LOCAL_MACHINE',

'HKEY_USERS',

'HKEY_PERFORMANCE_DATA',

'HKEY_CURRENT_CONFIG',

'HKEY_DYN_DATA');

function HKEYToStr(const Key: HKEY): string;

begin

if (key < HKEY_CLASSES_ROOT) or (key > HKEY_CLASSES_ROOT+6) then

Result := ''

else

Result := HKEYNames[key - HKEY_CLASSES_ROOT];

end;

Взято с сайтаhttps://www.swissdelphicenter.ch/en/tipsindex

Integer --> BIN

2013-08-20T15:29:20+07:00

Code:

function IntToBin1(Value: Longint; Digits: Integer): string;

var

i: Integer;

begin

Result := '';

for i := Digits downto0do

if Value and (1shl i) <> 0then

Result := Result + '1'

else

Result := Result + '0';

end;

Взято с сайта: https://www.swissdelphicenter

Code:

function IntToBin2(d: Longint): string;

var

x, p: Integer;

bin: string;

begin

bin := '';

for x := 1to8 * SizeOf(d) do

begin

if Odd(d) then bin := '1' + bin

else

bin := '0' + bin;

d := d shr1;

end;

Delete(bin, 1, 8 * ((Pos('1', bin) - 1) div8));

Result := bin;

end;

Взято с сайта: https://www.swissdelphicenter

PChar-->Integer

2013-08-20T15:19:15+07:00

Many Windows functions claim to want PChar parameters in the documentation, but they are defined as requiring LongInts.

Is this a bug?

No, this is where "typecasting" is used. Typecasting allows you to fool the compiler into thinking that one type of variable is of another type for the ultimate in flexibility. The last parameter of the Windows API function SendMessage() is a good example. It is

documented as requiring a long integer, but commonly requires a PChar for some messages (WM_WININICHANGE). Generally, the variable you are typecasting from must be the same size as the variable type you are casting it to. In the SendMessage example, you could typecast a PChar as a longint, since both occupy 4 bytes of memory:

Code:

var

s : array[0..64] of char;

begin

StrCopy(S, 'windows');

SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));

end;

PWideChar --> String

2013-08-20T15:41:42+07:00

Code:

{ **** UBPFD *********** by kladovka.net.ru ****

>> Конвертация PWideChar в String

Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol

Дата: 18 июля 2002 г.

********************************************** }

function PWideToString(pw : PWideChar) : string;

var

p : PChar;

iLen : integer;

begin

iLen := lstrlenw( pw ) + 1;

GetMem( p, iLen );

WideCharToMultiByte( CP_ACP, 0, pw, iLen, p, iLen * 2, nil, nil );

Result := p;

FreeMem( p, iLen );

end;

String --> Ascii

2013-08-20T15:45:42+07:00

Code:

{ **** UBPFD *********** by delphibase.endimus.com ****

>> Преобразование строки S в набор её чисел,

где каждое число представляет каждый символ строки

Получив строку S функция преобразует её в набор чисел, каждое из которых

обозначает код текущего символа, а перед каждым числом располагается символ "#".

Пусть, например, S = 'Hello';

Тогда Result = '#72#101#108#108#111';

Зависимости: system

Автор: VID, vidsnap@mail.ru, ICQ:132234868, Махачкала

Дата: 25 апреля 2002 г.

***************************************************** }

function StrToAscii(S: string): string;

var

I, X: Integer;

RS: string;

CurChar: string;

begin

Result := '';

if Length(S) = 0then

Exit;

X := 1;

for I := 1to Length(S) do

begin

CurChar := '#' + Inttostr(Ord(S[I]));

Insert(CurChar, RS, X);

X := X + Length(CurChar);

end;

Result := RS;

end;

String --> BCD

2013-08-20T15:37:34+07:00

Code:

function NumStringToBCD(const inStr: string): string;

function Pack(ch1, ch2: Char): Char;

begin

Assert((ch1 >= '0') and (ch1 <= '9'));

Assert((ch2 >= '0') and (ch2 <= '9'));

{Ord('0') is $30, so we can just use the low nybble of the character

as value.}

Result := Chr((Ord(ch1) and$F) or ((Ord(ch2) and$F) shl4))

end;

var

i: Integer;

begin

if Odd(Length(inStr)) then

Result := NumStringToBCD('0' + instr)

elsebegin

SetLength(Result, Length(inStr) div2);

for i := 1to Length(Result) do

Result[i] := Pack(inStr[2 * i - 1], inStr[2 * i]);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

S1, S2: string;

begin

S1 := '15151515151515151515';

S2 := NumStringToBCD(S1);

memo1.lines.add('S1: ' + S1);

memo1.lines.add('Length(S2): ' + IntToStr(Length(S2)));

memo1.lines.add('S2 unpacked again: ' + BCDToNumString(S2));

end;

Взято с сайтаhttps://www.swissdelphicenter.ch/en/tipsindex

String --> HKEY

2013-08-20T15:39:05+07:00

Code:

const

HKEYNames: array[0..6] ofstring =

('HKEY_CLASSES_ROOT',

'HKEY_CURRENT_USER',

'HKEY_LOCAL_MACHINE',

'HKEY_USERS',

'HKEY_PERFORMANCE_DATA',

'HKEY_CURRENT_CONFIG',

'HKEY_DYN_DATA');

function StrToHKEY(const KEY: string): HKEY;

var

i: Byte;

begin

Result := $0;

for i := Low(HKEYNames) to High(HKEYNames) do

begin

if SameText(HKEYNames[i], KEY) then

Result := HKEY_CLASSES_ROOT + i;

end;

Взято с сайтаhttps://www.swissdelphicenter.ch/en/tipsindex

String --> PChar

2013-08-20T15:18:17+07:00

Code:

Var S: String;

P: PChar;

....

P:=PChar(S);

Взято изhttps://forum.sources

Все функции API для работы с текстом используют неудобный тип String, а PChar – быстрее. Преобразовать строку String в PChar очень просто: PChar('It is my string'). Можно использовать то, что PChar – это адрес персого символа строки, заканчивающейся символом #0. И, наконец, еще одно удобство. Delphi воспринимает массив типа Char и как обычную строку, и как строку PChar. Полная совместимость. Эта программа демонстрирует демонстрирует все это.

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

s: array [0..99] of char;

p: integer;

begin

s := 'Delphi World';

FindWindow(nil, s);

p := pos('lp', s);

Form1.Caption := copy(s, p, Length(s) - p);

end;

https://delphiworld.narod

String --> PWideChar

2013-08-20T15:40:59+07:00

Code:

{ **** UBPFD *********** by kladovka.net.ru ****

>> Конвертация String в PWideChar

Зависимости: ???

Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol

Дата: 18 июля 2002 г.

********************************************** }

function StringToPWide( sStr: string; var iNewSize: integer ): PWideChar;

var

pw : PWideChar;

iSize : integer;

begin

iSize := Length( sStr ) + 1;

iNewSize := iSize * 2;

pw := AllocMem( iNewSize );

MultiByteToWideChar( CP_ACP, 0, PChar(sStr), iSize, pw, iNewSize );

Result := pw;

end;

Пример использования:

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

iSize: integer;

begin

ChangeWallpaper(StringToPWide('C:\1.jpg',iSize));

end;

String --> StringList

2013-08-20T15:49:06+07:00

Code:

{ **** UBPFD *********** by delphibase.endimus ****

>> Преобразование строки с разделителями в StringList.

Преобразование строки с разделителями в StringList или наследник TStrings.

Навеяно одноименной процедурой из InfoPower :-)

Зависимости: Classes

Автор: Игорь Шевченко, whitefranz@hotmail.com, Москва

Дата: 30 апреля 2002 г.

***************************************************** }

procedure StrBreakApart(const S, Delimeter: string; Parts: TStrings);

var

CurPos: integer;

CurStr: string;

begin

Parts.clear;

Parts.BeginUpdate();

try

CurStr := S;

repeat

CurPos := Pos(Delimeter, CurStr);

if (CurPos > 0) then

begin

Parts.Add(Copy(CurStr, 1, Pred(CurPos)));

CurStr := Copy(CurStr, CurPos + Length(Delimeter),

Length(CurStr) - CurPos - Length(Delimeter) + 1);

end

else

Parts.Add(CurStr);

until CurPos = 0;

finally

Parts.EndUpdate();

end;

Пример использования:

var

Tmp: StringList;

begin

Tmp := TStringList.Create();

StrBreakApart('Text1<BR>Text2<BR>Text3<BR>Text4', '<BR>', Tmp);

// После вызова Tmp содержит

// Text1

// Text2

// Text3

// Text4

...

Tmp.Free();

end;

Можно сделать значительно проще:

Code:

procedure StrBreakApart(const S, Delimeter: string; Parts: TStrings);

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

begin

Parts.text:=StringReplace(S, Delimeter, #13#10, [rfReplaceAll, rfIgnoreCase]);

end;

Автор:Vit

String --> WideString

2013-08-20T15:35:38+07:00

Code:

{:Converts Ansi string to Unicode string using specified code page.

@param s Ansi string.

@param codePage Code page to be used in conversion.

@returns Converted wide string.

}

function StringToWideString(const s: AnsiString; codePage: Word): WideString;

var

l: integer;

begin

if s = ''then

Result := ''

else

begin

l := MultiByteToWideChar(codePage, MB_PRECOMPOSED, PChar(@s[1]), - 1, nil, 0);

SetLength(Result, l - 1);

if l > 1then

MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@s[1]),

- 1, PWideChar(@Result[1]), l - 1);

end;

end; { StringToWideString }

Взято с сайтаhttps://www.swissdelphicenter.ch/en/tipsindex

WideString -->String

2013-08-20T15:34:47+07:00

Code:

{:Converts Unicode string to Ansi string using specified code page.

@param ws Unicode string.

@param codePage Code page to be used in conversion.

@returns Converted ansi string.

}

function WideStringToString(const ws: WideString; codePage: Word): AnsiString;

var

l: integer;

begin

if ws = ''then

Result := ''else

begin

l := WideCharToMultiByte(codePage,

WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,

@ws[1], - 1, nil, 0, nil, nil);

SetLength(Result, l - 1);

if l > 1then

WideCharToMultiByte(codePage,

WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,

@ws[1], - 1, @Result[1], l - 1, nil, nil);

end;

end; { WideStringToString }

Взято с сайтаhttps://www.swissdelphicenter.ch/en/tipsindex

Из строки в массив и наоборот

2013-08-20T15:44:08+07:00

Code:

function StrToArrays(str, r: string; out Temp: TStrings): Boolean;

var

j: integer;

begin

if temp <> nilthen

begin

temp.Clear;

while str <> ''do

begin

j := Pos(r,str);

if j=0then

j := Length(str) + 1;

temp.Add(Copy(Str,1,j-1));

Delete(Str,1,j+length(r)-1);

end;

Result:=True;

end

else

Result:=False;

end;

function ArrayToStr(str: TStrings; r: string): string;

var

i: integer;

begin

Result:='';

if str = nilthen

Exit;

for i := 0to Str.Count-1do

Result := Result + Str.Strings[i] + r;

end;

Взято с https://delphiworld.narod

Как преобразовать String в Binary и наоборот?

2013-08-20T15:43:23+07:00

Автор: Rem

Code:

function BinStrToByte(a_sBinStr: string): byte;

var

i: integer;

begin

Result := 0;

for i := 1to length(a_sBinStr) do

Result := (Result shl1) or byte(a_sBinStr[i] = '1');

end;

function ByteToBinStr(a_bByte: byte): string;

var

i: integer;

begin

SetLength(Result, 8);

for i := 8downto1do

begin

Result[i] := chr($30 + (a_bByte and1));

a_bByte := a_bByte shr1;

end;

// Примечание: вторая функция использует тот факт,

// что в таблице ANSI коды '0' = $30 и '1' = $31

Взято с https://delphiworld.narod

Как преобразовать значение любого типа в строку

2013-08-20T15:50:07+07:00

Более подробно ищите в хелпе Delphi по словам "Variant" и "TVarData"...

Code:

function ToString(Value: Variant): String;

begin

case TVarData(Value).VType of

varSmallInt,

varInteger : Result := IntToStr(Value);

varSingle,

varDouble,

varCurrency : Result := FloatToStr(Value);

varDate : Result := FormatDateTime('dd/mm/yyyy', Value);

varBoolean : if Value then Result := 'T'else Result := 'F';

varString : Result := Value;

else Result := '';

end;

Использование:

Code:

ShowMessage(ToString(10.87));

ShowMessage(ToString(10));

или

Code:

var

V1 : Double;

V2 : Integer;

V3 : TDateTime;

V4 : Boolean;

begin

...

ShowMessage(ToString(V1)); // Double a String

ShowMessage(ToString(V2)); // Integer a String

ShowMessage(ToString(V3)); // DateTime a String

ShowMessage(ToString(V4)); // Boolean a String

end;

Так же можно пользоваться другими вариантами, например:

varCurrency : Result := CurrToStrF(Value ,ffFixed,CurrencyDecimals);

varDate: Result := DateToStr(Value);

https://delphiworld.narod

DelphiWorld 6.0

Отобразить строку на определённую структуру

2013-08-20T15:44:57+07:00

Code:

type

TEmployee = record

cNo: array [0..3] of Char;

cName: array [0..7] of Char;

end;

PEmployee = ^TEmployee;

procedure ParseData;

const

sData = '0001Mosquito';

var

sNo, sName: string;

begin

with PEmployee(Pointer((@sData)^))^ do

begin

sNo := cNo; // sNo = '0001'

sName := cName; // sName = 'Mosquito'

end

end;

https://delphiworld.narod

DelphiWorld 6.0

Преобразование Unicode строк в DFM файлах Delphi 6 в Ansi строки

2013-08-20T15:42:37+07:00

Code:

{ **** UBPFD *********** by kladovka.net.ru ****

>> Преобразование Unicode строк в DFM файлах Delphi 6 в Ansi строки.

При попытке открыть проект созданный в Delphi 6 из Delphi 5 возникает

проблема с чтением DFM-файла. Проблема заключается в том, что Delphi5

не может прочитать строки, записанные в формате Unicode (WideString).

Данная функция переводит строки из DFM файла в формат ANSI, после чего

DFM файл читается в D5. Но при этом может возникнуть проблема,

связанная с незнакомыми для D5 свойствами компонентов, которая,

в свою очередь, решается игнорированием этих свойств.

Зависимости: Classes

Автор: Радионов Алексей (Alx2), alx@argo.mv.ru, ICQ:113442587, Ульяновск

Дата: 31 мая 2002 г.

********************************************** }

Procedure RemoveUnicodeFromDFM(Const Filename: String);

Function isChanges(Const S: String; Var Res: String): Boolean;

Var len: Integer;

Function LexemSharp(Var K: Integer): Boolean;

Begin

Result := (K < len) And (S[K] = '#');

If Result Then

Begin

inc(K);

While (K <= len) And (S[K] In ['0'..'9']) Do inc(K);

End;

Function LexemAp(Var K: Integer): Boolean;

Begin

Result := (K < len) And (S[K] = '''');

If Result Then

Begin

inc(K);

While (K <= len) And (S[K] <> '''') Do inc(K);

If K <= len

Then

inc(K);

End;

Function Lexem(Var K: Integer; Var Str: String): Boolean;

Var

Start: Integer;

ValS : String;

Begin

Result := False;

Start := K;

If LexemSharp(K) Then

Begin

ValS := Copy(S, Start + 1, K - Start - 1);

Str := WideChar(StrToInt(ValS));

Result := True;

End

Else

If LexemAp(K) Then

Begin

Str := Copy(S, Start + 1, K - Start - 2);

Result := True;

End;

Function Prepare(Var K: Integer): String;

Var Str: String;

WasLexem: Boolean;

Begin

Result := '';

WasLexem := False;

While Lexem(K, Str) Do

Begin

Result := Result + Str;

WasLexem := True;

End;

If Result <> ''Then

Result := '''' + Result + '''' + Copy(S, K, Length(S))

Else

IfNot WasLexem Then

Result := S

Else

Result := '''''';

End;

Function Min(A, B: Integer): Integer;

Begin

If A = 0Then Result := B

Else

If B = 0Then Result := A

Else

If A > B Then Result := B

Else Result := A;

End;

Var

StartIdx: Integer;

Begin

Result := False;

StartIdx := Min(Pos('#', S), Pos('''', S));

If StartIdx > 0Then

Begin

len := Length(S);

While (StartIdx <= len) And (Not (S[StartIdx] In ['#', ''''])) Do inc(StartIdx);

If StartIdx < len Then

Begin

Res := Copy(S, 1, StartIdx - 1) + Prepare(StartIdx);

Result := True;

End;

Var

SList: TStringList;

K : Integer;

Res : String;

Begin

SList := TStringList.Create;

Try

SList.LOADFROMFILE(Filename);

For K := 0To SList.Count - 1Do

If isChanges(SList[K], Res) Then

SList[K] := Res;

SList.SaveToFile(Filename);

Finally

SList.Free;

End;

Пример использования:

Code:

Procedure TForm1.Button1Click(Sender: TObject);

Var

K: Integer;

Begin

If OpenDialog1.Execute Then

For K := 0To OpenDialog1.Files.Count - 1Do

RemoveUnicodeFromDFM(OpenDialog1.Files[K]);

End;

Преобразование сроки в число

2013-08-20T15:47:37+07:00

Code:

{ **** UBPFD *********** by delphibase.endimus ****

>> Преобразование сроки в число

Преобразует строку в число, при этом удаля из строки все лишние символы

Зависимости: нет

Автор: Separator, vilgelm@mail.kz, ICQ:162770303, Алматы

***************************************************** }

function StringToNumber(const Value: string): string;

var

ResStr: string;

i, j, L: integer;

Ch: char;

E, DS: boolean;

begin

Result := '0';

L := Length(Value);

if L <> 0then

begin

SetLength(ResStr, L);

E := false;

DS := false;

j := 0;

for i := 1to L do

begin

Ch := Value[i];

case Ch of

'0'..'9':

begin

Inc(j);

ResStr[j] := Ch

end; //'0'..'9': begin

'.', ',': if (not DS) and (not E) and (i <> L) then

begin

DS := true;

Ch := DecimalSeparator;

if j = 0then

begin

Inc(j);

ResStr[j] := '0';

end; //if j = 0 then begin

Inc(j);

ResStr[j] := Ch

end; //'.', ',': if (not DS) and (i <> L) then begin

'e', 'E': if (not E) and (i <> L) then

begin

E := true;

Ch := 'E';

if j = 0then

begin

Inc(j);

ResStr[j] := '0';

end; //if j = 0 then begin

Inc(j);

ResStr[j] := Ch

end//'.', ',': if (not DS) and (i <> L) then begin

end//case Ch of

end; //for i:= 1 to L do begin

if j <> 0then

begin

if ResStr[j] = 'E'then

Dec(j);

if ResStr[j] = DecimalSeparator then

Dec(j);

SetLength(ResStr, j);

Result := ResStr

end//if j <> 0 then begin

end//if L <> 0 then begin

end;

Пример использования:

Edit1.Text = ',...,fgftgtr656,.567erdf..5,,632'

Edit2.Text := StringToNumber(Edit1.Text);

Edit2.Text = 0, 656567E5632

©Drkb::00919

Code:

type

TCharSet = setof Char;

function StripNonConforming(const S: string;

const ValidChars: TCharSet): string;

var

DestI: Integer;

SourceI: Integer;

begin

SetLength(Result, Length(S));

DestI := 0;

for SourceI := 1to Length(S) do

if S[SourceI] in ValidChars then

begin

Inc(DestI);

Result[DestI] := S[SourceI]

end;

SetLength(Result, DestI)

end;

function StripNonNumeric(const S: string): string;

begin

Result := StripNonConforming(S, ['0'..'9'])

end;

https://delphiworld.narod

DelphiWorld 6.0

Функции преобразования UNICODE и ANSI строк

2013-08-20T15:36:32+07:00

StringToWideChar Преобразовывает строку формата ANSI в Unicode-строку.

WideCharLenToString Преобразовывает указанное количество символов Unicode-строки в ANSI строку.

WideCharLenToStrVar Преобразовывает заданное количество символов Unicode-строки в ANSI формат и копирует результат в указанную переменную.

WideCharToString Преобразовывает длинную строку Unicode в ANSI строку.

WideCharLenToStrVar Преобразовывает строку формата Unicode в ANSI-формат и копирует результирующую строку в указанную переменную.

Взято с https://atrussk.ru/delphi/