Delphi визуалды программалау ортасы

жүктеу 1,5 Mb.

бет	88/94
Дата	03.02.2022
өлшемі	1,5 Mb.
	#35447

1 ... 84 85 86 87 88 89 90 91 ... 94

Delphi визуалды программалау жүйесі

24. Файлға жазба қосу

46-сурет
procedure TForm1.Button1Click(Sender: TObject);

begin

if not DirectoryExists(Edit2.Text) then

begin

ShowMessage('Каталог дұрыс көрсетілмеді.');

Edit2.SetFocus;

exit;

end;

Button1.Enabled := False;

Label4.Caption := '';

Label4.Repaint;

Memo1.Clear; // Memo1өрісін тазарту

Label4.Caption := '';

FileName := Edit1.Text; // не іздейміз

cDir := Edit2.Text; // қайдан іздейміз

n:=0; // табылған файлдар саны

ChDir(cDir); // каталогтағы іздеудің басына бару

Find; // іздеуді бастау

if n = 0 then

ShowMessage('Іздеу критерийін қанағаттандыратын файлдар жоқ.')

else Label4.Caption := 'Табылған файлдар:' + IntToStr(n);

Button1.Enabled := True;

end;

// пайдаланушы таңдаған каталогты қайтарады

function GetPath(mes: string):string;

var

Root: string; // түпкі каталог

pwRoot : PWideChar;

Dir: string;

begin

Root := ''; //түпкі каталог – Жұмыс столы бумасы

GetMem(pwRoot, (Length(Root)+1) * 2);

pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2);

if SelectDirectory(mes, pwRoot, Dir)

then

if length(Dir) = 2 // пайдаланушы түпкі каталогты таңдады

then GetPath := Dir+'\'

else GetPath := Dir

else

GetPath := '';

end;

// Бума батырмасын шерту

procedure TForm1.Button2Click(Sender: TObject);

var

Path: string;

begin

Path := GetPath('Буманы таңдаңыз');

if Path <> ''

then Edit2.Text := Path;

end;

end.

№24. Файлға жазба қосу

Жұмыстың мақсаты – Файлға жазба қосу әрекетін орындау мүмкіндігін беретін бағдарлама құру.

1. Ол үшін жаңа жоба ашып, мына 47-суреттегі компоненттерді Пішінге орналастырыңыз.

жүктеу 1,5 Mb.

Достарыңызбен бөлісу:

1 ... 84 85 86 87 88 89 90 91 ... 94