[Graf58]

Всем привет!
Помогите сделать задачу на delphi.

type tek=file of Char;
var t: tek;

описать и проверить работу процедуры del(t), подсчитать количество гласных букв в файле t.

Проблема в том что я никак не могу сохранить данные введённые в memo в файл t. Сохраняется только первый символ.

[NumLock]

Код:

var
  f: textfile;
begin
  AssignFile(f, 'Project1.txt');
  Rewrite(f);
  Write(f, Memo1.Text);
  CloseFile(f);
end;

Код:

begin
  Memo1.Lines.SaveToFile('Project1.txt');
end;

[Graf58]

Спасибо огромное! но t: file of Char.

[v1s2222]

Код:

var  f: file of char;
i, k: integer;
begin
  Assignfile(f, 'C:\111111.tttt');
  ReWrite(f);

  for i:=0 to memo1.Lines.Count-1 do
    for k:=1 to length(memo1.Lines.Strings[i]) do
      write(f, memo1.lines.Strings[i][k]);

  closefile(f);

Только с табуляцией и переносом строки надо разбираться.

[Graf58]

Спасибо огромное!

[Graf58]

Всем привет! А что за процедура del(t). del это удаление, как она может подсчитывать колличество гласных букв?

[NumLock]

Сообщение от Graf58

но t: file of Char.

не проблема:

Код:

var
  f: file of Char;
  s: String;
begin
  AssignFile(f, 'Project1.txt');
  Rewrite(f);
  s:=Memo1.Text;
  BlockWrite(f, s[1], Length(s));
  CloseFile(f);
end;