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

жүктеу/скачать 1,51 Mb.

бет	92/98
Дата	07.02.2022
өлшемі	1,51 Mb.
	#85980

1 ... 88 89 90 91 92 93 94 95 ... 98

Байланысты:
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,51 Mb.

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

1 ... 88 89 90 91 92 93 94 95 ... 98