Архив материалов - Сайт заготовки для Дельфи&Pascal

Главная » Архив материалов

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils,windows;

{ С клавиатуры вводятся записи, содержащие наименование игрушки и цену.
Напеча-тать список игрушек, упорядоченный по возрастанию цен. Добавить в список новый элемент.
}
type
    TAverCode=record
        name:string; // название
        Price:real; {цена игрушки}
    end;
    TArray = array of TAverCode;
var
   a:TArray;

{для перекодировки симовлов
взято с сайта
http://netsoftware.ucoz.ru/news/wintodos_dostowin_perekodirovka_simovlov_cherez_mozhul_windows/2012-11-26-106
}
function WinToDos(St: string): string; // перекодировка из Win кодировки в Dos
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
AnsiToOem(PChar(St), Ch);
Result := Ch;
StrDispose(Ch) ... Читать дальше »

Просмотров: 868 | Добавил: NetSoftWare | Дата: 26.11.2012 | Комментарии (0)

WinToDos / DosToWin перекодировка симовлов через модуль Windows

uses windows;

function WinToDos(St: string): string; // из Win в Dos кодировку
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
AnsiToOem(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;

function DosToWin(St: string): string; // из Dos в Win кодировку
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
OemToAnsi(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;

Просмотров: 1318 | Добавил: NetSoftWare | Дата: 26.11.2012 | Комментарии (0)

Cортировка массива простыми сравнениями

// сортировка массива простыми сравнениями
const
Ncount=8; // размер массива
type
TArrayOfInteger8=array[1..Ncount] of integer; // массив элементов

// функция обмена двух чисел ... Читать дальше »

Просмотров: 874 | Добавил: NetSoftWare | Дата: 22.11.2012 | Комментарии (0)

Стандартные операции с массивами (матрицами)

Работа с элементами выше/ниже/на главной/побочной диагоналях

... Читать дальше »

Просмотров: 1843 | Добавил: NetSoftWare | Дата: 07.11.2012 | Комментарии (0)

Как вычислить CRC-32 для файла CRC-32 для строки

{ **** UBPFD *********** by Naumov Denis http://netsoftware.ucoz.ru ****
>> 
>>
>> Как вычислить CRC-32 для файла как вычислить CRC-32 для строки 
>> constants here are for the CRC-32 generator
>> polynomial, as defined in the Microsoft
>> Systems Journal, March 1995, pp. 107 - 108
>>
>>взято с 
>> http://4programmers.org.ua/programming/
delphi/d_stati-i-isxodniki/d_sintaksis/d_sintaksis_shifrovanie/
13564-kak-vychislit-crc-32-dlya-fajla.html
 
Зависимости: System, Sysutils, Classes
Автор: 
Дата: 27 июля 2012 
***************************************************** }
const
 Table: array[0..255
		... 
		
			Читать дальше »

Просмотров: 2043 | Добавил: NetSoftWare | Дата: 27.07.2012 | Комментарии (0)

Разбивка строки на подстроки с использованием заданного разделителя

{ **** UBPFD *********** by Naumov Denis http://netsoftware.ucoz.ru ****
>> Разбивка строки на подстроки с использованием заданного разделителя
Параметры: Str: WideString - Строка для разбивки
Delimiter: String - Разделитель подстрок с строке Str
Результат: TStringList: Список найденных подстрок
Зависимости: System, Sysutils, Classes
Автор: Stoma, stoma@bitex.bg
Copyright: Собственная разработка
Дата: 4 августа 2011 г.
***************************************************** }

 function Tokenize(Str: WideString
		... 
		
			Читать дальше »

Просмотров: 889 | Добавил: NetSoftWare | Дата: 27.07.2012 | Комментарии (0)

Получение локального имени компьютера GetLocalName

{ **** UBPFD *********** by Naumov Denis http://netsoftware.ucoz.ru ****
http://netsoftware.ucoz.ru/news/
poluchenie_lokalnogo_imeni_kompjutera_getlocalname/2012-07-27-98
>> Получение локального имени компьютера
 
Зависимости: Winsock {uses Winsock;}
Автор: Gua, gua@ukr.net , ICQ:141585495, Simferopol
Copyright: Gua
Дата
		... 
		
			Читать дальше »

Просмотров: 954 | Добавил: NetSoftWare | Дата: 27.07.2012 | Комментарии (0)

Копирование содержимого директории, вместе с поддиректориями.

{ **** UBPFD *********** by Naumov Denis http://netsoftware.ucoz.ru ***** >> Копирование содержимого директории, вместе с поддиректориями.

Функция копирует СОДЕРЖИМОЕ директории SourceDir в директорию TargetDir.
Копируются все файлы, подкаталоги, и файлы находящиеся в этих подкаталогах.

Аргумент StopIfNotAllCopied: если значение этого аргумента = True,
то при первой же ошибке копирования файла или папки, работы функции
прекратится а функция вернёт False. В случае если этот аргумен ... Читать дальше »

Просмотров: 1270 | Добавил: NetSoftWare | Дата: 27.07.2012 | Комментарии (0)

Сервис подсветки синтаксиса Pascal/Delphi/C# c++ и дургих языков программирования

Очень выручает когда надо подсветить синтаксис в статье. Генерирует автономный код, который следует скопипастить. Поддерживает множества языков:

http://highlight.hohli.com/

... Читать дальше »

Просмотров: 1748 | Добавил: NetSoftWare | Дата: 27.07.2012 | Комментарии (1)

Процедура Delay (как в паскале) UBPFD by Denis Naumov

{ **** UBPFD *********** by Naumov Denis http://netsoftware.ucoz.ru ****
>> Процедура Delay (как в паскале)
 
Зависимости: Forms,Windows,SysUtils
Автор: demon-777, demon-777@yandex.ru, Питер
Copyright: Выдрана из RxLib
Дата: 23 мая 2002 г.
***************************************************** }
 
{Delay, не загружающий процессор}
 
procedure Delay(Value: Cardinal);
var
 F, N: 
		... 
		
			Читать дальше »

Просмотров: 1258 | Добавил: NetSoftWare | Дата: 27.07.2012 | Комментарии (0)

« 1 2 3 4 ... 10 11 »

Delphi заготовки

Меню сайта

Поиск по сайту

Контакты

Наш опрос

Добавить

Календарь

Полезные ссылки

Теги

Статистика

Архив записей

Число on-line

Поддержка сайта