- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
procedure TForm1.N4Click(Sender: TObject);//процедура "Файл->Сохранить"
begin
if Form1.Caption='Новый' then
N5Click(Sender) else
begin // добавить
Form1.vvod.Lines.SaveToFile(Form1.Caption);//Сохраняем
Form1.vvod.Tag:=0; // добавить
end; // добавить
N7.Enabled:=true;
vvod.Modified:=false;
label3.Caption:='Нет';
end;
procedure TForm1.N5Click(Sender: TObject);//Процедура "Файл->Сохранить как..."
var fname:string;
begin
N7.Enabled:=true;//Включение процедуры "Файл->Закрыть"
if SaveDialog1.Execute then
begin
fname:=SaveDialog1.FileName;
if SaveDialog1.FilterIndex=1 then//PHP
begin
vvod.Lines.SaveToFile(fname+'.php');
Form1.Caption:=ExtractFileName(fname+'.php');
end;
if SaveDialog1.FilterIndex=2 then//HTML
begin
vvod.Lines.SaveToFile(fname+'.htm');
Form1.Caption:=ExtractFileName(fname+'.htm');
end;
if SaveDialog1.FilterIndex=3 then//CSS
begin
vvod.Lines.SaveToFile(fname+'.css');
Form1.Caption:=ExtractFileName(fname+'.css');
end;
if SaveDialog1.FilterIndex=4 then//txt
begin
vvod.Lines.SaveToFile(fname+'.txt');
Form1.Caption:=ExtractFileName(fname+'.txt');
end;
vvod.Modified:=false;
label3.Caption:='Нет';
end;
end;
guest 30.04.2009 22:06 # 0
guest 01.05.2009 20:29 # 0