| Статистика | 
|
|
Каталог статей
Преобразование '1010' в '001010'
Решением является создание функции, функционально похожей на функцию Clipper
- PadL(string,width,character):
function
TfrmFunc.PadL(cVal: string; nWide: integer; cChr: char):
string;
var
i1,nStart: integer;begin
if length(cVal) < nWide then
begin
nStart:=length(cVal);
for i1:=nStart to nWide-1
do cVal:=cChar+cVal;
end;
PadL:=cVal;end;
|
|
|
Просмотров: 429
8
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
