Строки

Строки могут быть представлены следующими типами: shortstring, Longstring и widestring. Различаются эти типы предельно допустимой длиной строки, способом выделения памяти для переменных и методом кодировки символов.

Переменной типа shortstring память выделяется статически, т. е. до начала выполнения программы, и количество символов такой строки не может превышать 255. Переменным типа Longstring и widestring память выделяется динамически — во время работы программы, поэтому длина таких строк практически не ограничена.

Помимо перечисленных выше типов можно применять универсальный cтроковый тип String. Тип String эквивалентен типу Shortstring.

Переменная строкового типа должна быть объявлена в разделе объявления переменных. Инструкция объявления в общем виде выглядит так:

Имя: String;

или

Имя: String [длина]

где:

имя — имя переменной;

string — ключевое слово обозначения строкового типа;

длина — константа целого типа, которая задает максим ... Читать дальше »

исходник программы, предназначенной для обмена мгновенными сообщениями (полный аналог ICQ). Это небольшая компонента, которая позволяет вам общаться с ICQ пользователями прямо из вашей программы. Исходники довольно хорошо описаны (правда на английском), так что можно без проблем расширять возможности компоненты

Скачать

Компонент сделан на базе стандартного компонента Label. Компонент вставляет ссылку в вашу программу.

Скачать

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
Application.Minimize;
ShowWindow(Application.Handle, SW_HIDE);
Memo1.Lines.LoadFromFile('show.txt');
Memo1.Lines.Add('Êîìïüþòåð áûë âêëþ÷åí ' + DateToStr(Now) + ' ' + TimeToStr(Now));
Memo1.Lines.SaveToFile('show.txt');
end;

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

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, MMSystem;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
ComboBox1: TComboBox;
Button3: TButton;
procedure Button1Click(Sender: TObject);
function CloseCD(Drive : string) : Boolean;
function OpenCD(Drive : string) : Boolean;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
public
end;

var
Form1: TForm1;
Driv: array [1..25] of string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenCD(ComboBox1.Text);
end;

function TForm1.OpenCD(Drive: string): Boolean;
var
Res : MciError;
OpenParm: TMCI_Open_Parms;
Flags : DWord;
S : ... Читать дальше »

моя очередная разработка

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, ExtCtrls, IdAntiFreezeBase, IdAntiFreeze, GruString;

type
TForm1 = class(TForm)
Timer1: TTimer;
Memo1: TMemo;
IdHTTP1: TIdHTTP;
Label1: TLabel;
IdAntiFreeze1: TIdAntiFreeze;
Memo2: TMemo;
procedure Timer1Timer(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(StrToInt(Label1.Caption) - 1);
if Label1.Caption='0' then
begin
Application.ProcessMessages;
Memo2.Lines.LoadFromFile('HTTP ... Читать дальше »

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
DesktopCanvas:TCanvas ;
BitMap:TBitMap;
begin
DesktopCanvas:=TCanvas.Create;
DesktopCanvas.Handle:=GetDC(Hwnd_Desktop);
BitMap := TBitMap.Create;
BitMap.Width := Screen.Width;
BitMap.Height:=Screen.Height;
Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
DesktopCanvas, DesktopCanvas.ClipRect);
Bitmap.Canvas.TextOut(0,0,DateToStr(Now)+ ' ' + TimeToStr(Now));
Bitmap.SaveToFile('pic.bmp');
end;

end.

Программа регестрирует короткие ссылки на сайте http://shurl.org/

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ShellApi, GruString, StrUtils, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdAntiFreezeBase,
IdAntiFreeze, Gauges;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
GroupBox1: TGroupBox;
Edit1: TEdit;
Button1: TButton;
GroupBox2: TGroupBox;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label2: TLabel;
GroupBox3: TGroupBox;
Memo1: TMemo;
GroupBox4: TGroupBox;
L ... Читать дальше »

Компонент добавит вашу программу в автозапуск Windows через ключи реестра, возможность выбора ключа

Скачать

GruString

Модуль для работы со строками.
Неполный перечень функций:
Удаление из строки пробелов: DeleteBlank
пример: DeleteBlank('Мое любимое молоко'); {функция возвращает 'Моелюбимоемолоко'}
Удаление из строки двойных пробелов: DelDoubBlank
пример: DelDoubBlank('Мое любимое молоко'); {функция возвращает 'Мое любимое молоко'}
Удаления из списка строк всех пробелов в строках: DelBlankStrings
Удаления из списка строк всех пустых строк: DelEmpStrings
Удаления из списка строк всех повторяюших строк: DeleteCopy
Возвратит строку с указанной большой буквой: LargeLtterStr
пример: LargeLtterStr('Мое любимое молоко', 3); {функция возвращает 'МоЕ любимое молоко'}
Возвращает строку где все слова начинаются с большой буквы: LargeStr
пример: LargeStr('Мое любимое молоко'); {функция возвращает 'Мое Любимое Молоко'}
Возвращает аббревиатуру слов: AbbrevStr
пример: AbbrevStr('Мое любимое молоко'); {функ ... Читать дальше »