Pisha diplomna rabota, no imam nqkolko problema:
1. Kak moga da sortiram DBGrid, imam 1 paradox tablica
2. Kak da napravq taka che edin EditBox da priema samo cifri?
3. Imam 1 forma v koqto imam 1 PictureOpenDialog i 1 TImage i sled kato si izbere kartinka tq se zarejda v TImage-a. Sled tova primerno zatvarqm formata i po-kusno kato q izvikam pak v TImage-a si sedi zaredena onazi kartinka, kak moga da go nuliram tozi TImage, probvah da zaredi nesushtestvuvasht fail no prosto izplu greshka, probvah i az da napravq 1 siva kartinka i da zarejda neq, no pak ne stana, sled kato sum otvoril nqkoq kartinka sled tova praznata q tursi v direktoriqta v koqto e bila prednata kartinka , ne v tazi na programata.

Mnogo shte sum vi blagodaren, ako mi pomognete. Pisha si diplomnata rabota i sa mi vajni.

1.SQL

2.:

procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin

if not (Key in ['0'..'9',SysUtils.DecimalSeparator,Chr(8)]) then
begin
Key:=#0;
end;

end;

3.Оправяй се сам !

1. DBGrid-а може да се сортира и с индексиране на таблицата но е по лесно с SQL.


3. Използвай
Image1.Picture := nil;
за да изчистиш картинката.

AquilaX

____________
умният знае кога да говори, мъдрият знае кога да мълчи

implementation
uses IniFiles;
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
Ini.Create('set.ini');
Form1.Tag := ReadInteger('PIC', 'LastPictures', 0);
// nulata e defal PIC nomer
//nomera se zarejda v Form1.Tag
Ini.free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
Ini: TIniFile;
begin
Ini.Create('set.ini');
WriteInteger('PIC', 'LastPictures', Form1.Tag);// zapis
Ini.free;
end;

Wizard pie JIN....

Mnogo vi blagodarq na vsichki. Veche problemi 2 i 3 sa resheni, ostana samo sortiraneto na DBGrid-a. Znachi az pochnah da go pravq s indexirane, no problema e che ne moga da suzdam index, postoqnno plache za neshto - bazata ne mojela da se otvori exclusive, slojih q exclusive. Sled tova imalo otvoren DataSet i nego go zatvorih, sled tova placheshe che bazata danni e Busy ot dev (userut mi pod XP). Sega svalih edin primer za index-irane dano stanat neshtata.
Pak mnogo blagodarq na vsichki, imate po 1 bira :).

Izpolzway komponenta TQuery :

Kato go nastroish i w ObjectInspektora - SQL napishi

"SELECT * FROM IMETO_NA_TABLICATA ORDER BY POLETO_PO_KOETO ISKASH_SORTIRASH"

Sega ne sum vkushti, kato se pribera shte probvam. No az polzvam Paradox table prez BDE, togava sushto li mogat da se polzvat SQL zaqvki?

Ei choveko stana. Super mnogo sum ti blagodaren.

Ако не можеш да се оправиш със затварянето на връзките към таблицата, най-добре си пусни Database Desktop или Database Explorer без да пускаш Delphi - така е сигурно, че нито твоят проект, нито Delphi ще ти използват таблицата. Ако сложиш Exclusive = True, това не ти решава проблема - просто когато твоето приложение отвори таблицата, никой друг няма да може да я отвори.

Takam znachi sus SQL-a, kato mu dam Query1.Open mi izdava suobshtenie che ne moje da go napravi dokato ima otvoren DataSet, zatvorih go dataset-a (DataSource1.DataSet.Close), no pak produlji da dava che ne moje da go napravi pri otvoren dataset, nqkoi da ima ideq kak da go opravq tova?