FreePascal.ru

cannt find unit wingraph А по ссылке лень было сходить.

Если кросплатформенный и быстрый, то используй SDL. В ней есть интерфейс к OpenGL.

Посмотри модуль WinGraph. Он быстрее Graph.
Есть работа со спрайтами. В примерах есть image.pas, в котором загрузка bmp-файла и работа со спрайтами.
Ссылка: http://math.ubbcluj.ro/~sberinde/wingraph/

m


program derevo;
//uses graph,crt;
uses wingraph,wincrt,winmouse,sysutils;
var gd,gm:integer;

procedure line1(x1,x2,x3,x4 : double);
begin
line(round(x1),round(x2),round(x3),round(x4));
end;

procedure frac1(x1,y1,x2,y2,i:double ...

Ошибка в этой строке:

readln(f,year1,telefon1,surname1);

Неправильный порядок переменных, исправление порядка не
поможет ( readln(f,surname1,year1,telefon1)), т.к. вся строка из текстового файла будет прочитана в переменную surname1.

Исправденный текст.

program yeeeaah;

{$mode objfpc}{$H+}

uses crt;
const
n=4;
type
yeah = record
surname:string[30];
year:1900..2000;
telefon:111111..7999999;
end;
var
a:array[1..n] of yeah;
f: file of yeah;
filename:string[20];
i:byte;
r: yeah;

begin
writeln ...

type
TPrinterMargins = record // непечатаемые границы принтера в сотых
// долях миллиметра
Left: longint;
Top: longint;
end;

TPrinterInfo = record
PixelsPerInch: TPoint;
PhysPageSize: TPoint;
PageRes: TPoint;
OffsetStart: TPoint;
Margins: TPrinterMargins ...

Попробуй.
Вот кусок кода, который работает:

var
Tables : TDBF;
Indexes: TDBF;

procedure TStrucForm.SetFilter;
begin
Indexes.Filter:='TABLE_NAME="'+Tables.FieldByName('TABLE_NAME').AsString+'"';
Indexes.Filtered:=CheckBox1.Checked;
end;

CheckBox1 - флажок, указывающий на ...

DataModule1.DBF1.Filter := 'VID="' + Edit1.text + '"';

в итоге фильтр получаетса такой: VID="ТЕКСТ"