Четверг, 04.03.2021, 00:30 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93  
delphicode » Delphi » Процедуры и функции Delphi » Работа с блокнотом (Запись и чтение)
Работа с блокнотом
dolphinДата: Пятница, 05.06.2009, 08:10 | Сообщение # 1
Администратор
Сообщений: 906
Статус: Offline
procedure SaveTxtInfo;
var f:TextFile;
begin
If SaveDialog1.Execute then
begin
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
Writeln(f,'Ваши данные');
CloseFile(f);
end;
end;


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
dolphinДата: Пятница, 05.06.2009, 08:10 | Сообщение # 2
Администратор
Сообщений: 906
Статус: Offline
Чтение

procedure ReadTxtInfo;
var f:TextFile;
s:string;
begin
If OpenDialog1.Execute then
begin
AssignFile(f,OpenDialog1.FileName);
Reset(f);
Readln(f,s);
CloseFile(f);
end;
end;


Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
delphicode » Delphi » Процедуры и функции Delphi » Работа с блокнотом (Запись и чтение)
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2021 Хостинг от uCoz