Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

Вот конечный код после учета всех мелочей! Например, нам, в конечном счете, нужно сообщить указателю о необходимости возвратиться к началу своей новой строки.

procedure TForm1.RemoveSpaces(var InBuf: PChar; Size: Word);

var

 Input, OutPut, Orig: PChar;

begin

 GetMem(Output, Size);

 input := Inbuf;

 Orig := Output;

 while input^ <> #0 do begin

if (input^ <> #10) and (input^ <> #13) then begin

output^ := input^;

inc(output);

end;

inc(input);

 end;

 Output^ := #0;

 Output := Orig;

 InBuf := Output;

end;

Я

все еще немало удивлен тому как работает GetData! Я все еще не хочу использовать TMemo! Если кто-то может решить эту проблему, я буду очень рад! Пока же я готовлю для вас материал, включающий новые процедуры печати! Наведем порядок в беспорядке! Я уже имею реализацию вывода текста с любым шрифтом и в любой позиции, выраженной в дюймах, и это только начало! Но что я думаю действительно классно вышло, так это диманическая сетка! Вы можете создавать сетку с любым количеством строк и колонок. Назначьте текст и ячейку, установите горизонтальное и вертикальное выравнивание, выберите стиль границы для каждой ячейки и изучите множество других способов манипулирования и печати сетки!

Функция, возвращающая тип

Delphi 1

Вы можете сделать это в C++. В ObjectPascal это также можно сделать, смотрите пример:

// функция Chameleon, возвращающая тип сгенерированного исключения

unit Unit1;

interface

uses

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

type

 MyBoolean = class

 public

Value : boolean;

 end;

 MyInteger = class

 public

Value : integer;

 end;

 MyClass = class

 public

Value : TStrings;

 end;

 TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

 private { Private declarations }

 public { Public declarations }

procedure MyProc;

function Chameleon : boolean;

 end;

var

 Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.Chameleon : boolean;

var

 b : MyBoolean;

 i : MyInteger;

 c : MyClass;

 r : integer;

begin

 r := Random(3);

 case r of

 0 : begin

b := MyBoolean.Create;

raise b;

 end;

 1 : begin

i := MyInteger.Create;

raise i;

 end;

 2 : begin

c := MyClass.Create;

raise c;

 end;

 end;

end;

procedure TForm1.MyProc;

begin

 try

Chameleon;

 excepton MyBoolean do ShowMessage('Функция

возвратила класс MyBoolean');

 on MyInteger do ShowMessage('Функция возвратила класс MyInteger');

 on MyClass do ShowMessage('Функция возвратила класс MyClass');

 end;

end;

procedure TForm1.Button1Click(Sender: TObject);