Delphi заготовки

Дана строка символов до точки. Удалить из нее все слова, начинающиеся с буквы «а».




uses crt;
var s,sub:string;
 i,n:integer;
 a:array[1..100] of string;
 ch:char;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>
		... 
		
			Читать дальше »
		
	

Мне часто присылают удивительные картинки из раздела удивительные факты.
Как упаковать CD в лист A4. Просто и изящно.

http://netsoftware.ucoz.ru/57_perevod_summy_v_stroku.zip



Статья про программу на Delphi для перевода суммы в строку имела некоторый успех на сайте  решил выложить пример подобной программы.

1. При запуске программа передает содержимое буфера обмена в компонент для ввода чисел.
2. Происходит преобразование числа в сумму прописью
3. Выдает результат в буфер обмена
4. по нажатию Esc программа закрывается



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

 Нужна программа, которая через определенное время (например каждые 5 секунд, но чтобы можно самому казать временной период) смещает курсор мыши в случайном направлении на случайное количество пикселов, но не более например пяти (с возможностью указания этого числа). простенькая форма с двумя эдитами: в первом указываем интервал, во втором максимальное число пикселов, на которое может сместиться курсор.



Чтобы вывести время простоя компьютера нужно написать следующую функцию:

function CheckIddleTime: DWord;
var
   LastInput: TLastInputInfo;
begin
   LastInput.cbSize := SizeOf(TLastInputInfo);
   GetLastInputInfo(LastInput);
   Result := GetTickCount - LastInput.dwTime;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:= 'Время простоя: ' + vartostr(CheckIddleTime/1000)+' секунд(ы)';
end;

далее напишем программу по просьбе ... Читать дальше »

программа на Паскале (pascal)

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

uses crt;
const
   SymbolWord :set of char = ['A'..'Z','a'..'z','0'..'9','а'..'я','А'..'Я','-'];

   Function GetTextFromUslovie(s:string;Charvalue:Char):string;
   var x:integer;
       s2:string;
       L:integer;
       start:integer;
       chr:boolean;
   begin
     s2:='';
     l:=length(s);
     start:=1; // начала слова
     chr:=true;
     while x<l do begin
        if s[x] in SymbolWord then begin
        if s[x]=Charvalue then chr:=false;
        s2: ... Читать дальше »

где найти файл fbclient.dll
где найти файл fbguard.exe
где найти файл fbrmclib.dll
где найти файл fbsvcmgr.exe
где найти файл fbtracemgr.exe
где найти файл fb_lock_print.exe
где найти файл gbak.exe
где найти файл gdef.exe
где найти файл gfix.exe
где найти файл gpre.exe
где найти файл gsec.exe
где найти файл gsplit.exe
где найти файл gstat.exe
где найти файл ib_util.dll
где найти файл icudt30.dll
где найти файл icuin30.dll
где найти файл icuuc30.dll
где найти файл instclient.exe
где найти файл instreg.exe
где взять файл instsvc.exe
где взять файл isql.exe
где взять файл nbackup.exe
где взять файл qli.exe
Где взять gfix.exe

/Fb_ut.zip

Как получить полный текст процедуры из базы данных FireBird


начало этого разговора было положено в конференциях
http://www.sql.ru/forum/actualthread.aspx?tid=901951
отдельное спасибо  автору сайта  ibase.ru
Источник http://www.ibase.ru/devinfo/sysqry.htm

1. Получение списка полей и их типов по таблицам:

select R.RDB$RELATION_NAME, R.RDB$FIELD_POSITION, R.RDB$FIELD_NAME,
F.RDB$FIELD_LENGTH, F.RDB$FIELD_TYPE, F.RDB$FIELD_SCALE, F.RDB$FIELD_SUB_TYPE
from RDB$FIELDS F, RDB$RELATION_FIELDS R
where F.RDB$FIELD_NAME = R.RDB$FIELD_SOURCE and < ... Читать дальше »

{Str.PAS}
 
{ Пример программы для процедуры Str }
 
Function IntToStr(I : Longint) : String;
{ Преобразовывает значение типа Integer в строку }
Var S : String [11];
Begin
 Str(I, S);
 IntToStr:=S;
End;
 
Begin
 
		
		... 
		
			Читать дальше »
		
	

пример создания объектов типа TCombobox в режиме работы программы


var a2:array of Tcombobox; { объявляем массив неограниченного числа  элементов а2 типа  Tcombobox;
}
    X:integer;
begin
// на форме уже есть один  combobox1
// может быть с текстом
{
combobox1.AddItem('123',NIL);
 combobox1.AddItem('888',NIL);
}

SetlengtH(a2,10); // задаем размер массива из 10 элементов

  for x:=0 to 9 do begin
    a2[x]:=Tcombobox.Create(form1); { выполняем создание массива . задаем родительский элемент }

    a2[x].parent:=form1; { где создаем объект. можно поставить Panel1 или другой компонент  }
    a2[x].left:=50;
    a2[x].top:=25*x;
    a2[x].Items.Text:=form1.ComboBox1.Items.Text; // список элементов
    a2[x].text:=inttostR(X); //  текущий текст
  end;

end;< ... Читать дальше »