Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Проверка имени файла на наличие запрещённых символов
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Проверка имени файла на наличие запрещённых символов (? * ...)
Не используйте функцию для проверки пути к какому-либо файлу и т.п.
Зависимости: нет
Автор: Aleksiy, aleksiy@sch103.krasnoyarsk.su
Copyright: Собственное написание (Aleksiy)
Дата: 20 апреля 2002 г.
***************************************************** }
function RightFileName(const
FileName: string
): boolean;
const
CHARS: array
[1..10] of
char =
('', '/', ':', '*', '.', '?', '"', '<', '>', '|');
var
I: integer;
begin
for
I := 1 to
10 do
if
pos(CHARS[I], FileName) <> 0 then
//Найден запрещённый символ
begin
Result := false;
Exit;
end
;
Result := true;
end
;
Пример использования:
procedureTForm1.Button1Click(Sender: TObject); var
F: TextFile; begin
if
RightFileName(Edit1.Text) then
begin
AssignFile(F, Edit1.Text); Rewrite(F); CloseFile(F); end
else
ShowMessage( 'Нельзя использовать символы / : * . ? " < > | в имени файла'); end
;