| ← Июнь 2021 → | ||||||
|
1
|
3
|
4
|
6
|
|||
|---|---|---|---|---|---|---|
|
7
|
8
|
9
|
10
|
12
|
13
|
|
|
14
|
15
|
16
|
17
|
18
|
19
|
20
|
|
21
|
22
|
23
|
24
|
25
|
26
|
27
|
|
28
|
29
|
30
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
Pascal / Delphi / Lazarus
Здравствуйте! Пожалуйста, нужна помощь в решении задачи на Lazarus:
Дата отправки: 31.05.2021, 22:23 Консультирует puporev (Профессор): Код [Pascal] procedure TForm1.Button1Click(Sender: TObject);
type myText=file of char;
procedure del(var t:myText);
var c:char;
begin
reset(t);
if filesize(t)<2 then
begin
ShowMessage('В файле нет двух символов');
exit;
end;
seek(t,filesize(t)-1);
read(t,c);
seek(t,filesize(t)-2);
write(t,c);
seek(t,filesize(t)-1);
truncate(t);
closefile(t);
end;
var f:myText;
c:char;
begin
//запишем в файл буквы A..Z
Memo1.Text:='Содержание исходного файла'+#13#10;
assignfile(f,'file');
rewrite(f);
for c:='A' to 'Z' do
begin
write(f,c);
Memo1.Text:=Memo1.Text+c;
end;
del(f); //вызовем проедуру
Memo2.Text:='Содержание измененного файла'+#13#10;
reset(f);
while not eof(f) do
begin
read(f,c);
Memo2.Text:=Memo2.Text+c;
end;
closefile(f);
end;
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
