Delphi визуалды программалау ортасы
жүктеу/скачать 2,03 Mb.
|
- Бұл бет үшін навигация:
- 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-суреттегі компоненттерді Пішінге орналастырыңыз. жүктеу/скачать 2,03 Mb. Достарыңызбен бөлісу:
|