procedure TForm1.Button2Click(Sender: TObject);
var fFileName: TfileName;
begin
WITH OpenDialog1 DO
BEGIN
Filter := 'All files|*.*'+'Text files|*.txt,*.doc';
FilterIndex := 2;
IF Execute THEN
BEGIN
{Таңдап алынған файлды Memo1 құрауышында ашады}
Memo1.Lines.LoadFromFile(FileName);
{ fFileName айнымалысына таңдап алынған файлдың толық атын жазу}
fFileName := OpenDialog1.FileName;
{Файлдың толық атын пішіннің тақырыбына шығару}
Form1.Caption := fFileName;
{Label1 құрауышына толық атынан бөліп алып, дискі және каталогтың атынсыз файлдың атын шығару}
Label1.Caption := ExtractFileName(fFileName);
Достарыңызбен бөлісу: |