Добавить в конец текстового файла литеру "k"

@lily · Регистрация: 10.04.2012

Author24 — интернет-сервис помощи студентам

Написать процедуру,которая добавляет в конец текстового файла литеру "k".

@alexmcoder · 31.05.2012, 15:59

Delphi

function plustext(tn:string;ch:string):boolean;
var
t:tstringlist;
fl:boolean;
begin
t:=tstringlist.Create;
try
  t.LoadFromFile(tn);
  t.Text:=t.Text+ch;
  t.SaveToFile(tn);
  t.Free;
  fl:=true;
except
 fl:=false;
end;
result:=fl;
end;

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
if plustext('C:\\1.txt','k') then showmessage('литера "k" успешно добавлена') else showmessage('ошибка добавления');
end;

@vilag · 31.05.2012, 20:36

Delphi

procedure plusk(tn:string);
var
  f: textFile;
begin
  AssignFile(f, tn);
  Append(f);
  Write(f, 'k');
  CloseFile(f);
end;

@lily 0 / 0 / 2 Регистрация: 10.04.2012 Сообщений: 29
		1
	Добавить в конец текстового файла литеру "k" 31.05.2012, 04:12. Показов 1093. Ответов 2 Метки нет (Все метки) Написать процедуру,которая добавляет в конец текстового файла литеру "k". 0

	31.05.2012, 20:36

Опции темы

Добавить в конец текстового файла литеру "k"

Решение