Процедура сохранения в текстовом файле имен компонентов заданного класса, использованных на форме
Категория: Delphi/Pascal
2011-08-28 22:40:54
Написать процедуру сохранения в текстовом файле имен компонентов заданного класса, использованных на форме. Входящий параметр – класс компонентов (TClass), путь и имя файла (String).
code: #delphi
- procedure TForm1.SaveToFile(c: TClass; FileName: string);
- var
- f: textfile;
- i: integer;
- begin
- assignFile(f,FileName);
- Rewrite(f);
- for i := 0 to ComponentCount-1 do
- if (Components[i] is c)then WriteLn(f,Components[i].Name);
- CloseFile(f);
- end;
Поделиться: