doktor255

var f: TextFile;

i, k: integer;

begin

  AssignFile(f,'c:\file.txt');

  Rewrite(f);

  for i:=1 to 15 do begin

    k := Random(5)-2;

    WriteLn(f, IntToStr(k));

  end;

  CloseFile(f);

тема на форуме

Имеется текстовый файл со строками. Мне нужно строки из TStringList сохранить в конец этого файла, но при SaveToFile данные в файле стираются. Как быть? (читать всё…)

Как записать в переменную типа TextFile данные из memo? (читать всё…)

При нажатии на кнопку отчистить текстовый файл. (читать всё…)

как перебрать все доступные значения, например
aaa
aab
aac
aad
и тд
но не для 3х знаков а для n-го количества знаков(указыватся будет в программе) и не только букв перебор но и цыфр, букв, знаков «-» «_» «.» (читать всё…)