насчёт файлов

← →
NneRreaLl (2003-12-20 22:27) [0]

У меня есть файл, который содержит, например, 5 строк:

строка1
строка2
строка3
строка4
строка5

Мне нужно, что-бы моя прога добавляла строку "hello" в начало строки и в конец -- то есть чтобы получилось так:

"hello" строка1 "hello"
"hello" строка2 "hello"
"hello" строка3 "hello"
"hello" строка4 "hello"
"hello" строка5 "hello"

← →
Anatoly Podgoretsky (2003-12-20 23:02) [1]

Курсовая?

← →
CYBERWOLF13 (2003-12-20 23:13) [2]

var
i: integer;
s: array[1..5] of boolean;
f: TextFile;
...
begin
AssignFile(f,"STRINGS.TXT");
Reset(f);
for i:=1 to 5 do
begin
readln(f,s[i]);
s[i]:="HELLo "+"s[i]"+" HELLo";
end;
CloseFile(F);
AssignFile(f,"STRINGS.TXT");
Rewrite(f);
for i:=1 to 5 do writeln(f,s[i]);
end;

Вот так.

← →
Anatoly Podgoretsky (2003-12-20 23:27) [3]

Класс, долго учился?

← →
Palladin (2003-12-20 23:37) [4]

> CYBERWOLF13 © (20.12.03 23:13) [2]

Может объснишь мне темному, неужели boolean совместим с string, обязательно ли заводить массив, не нужно закрывать файл, в любом текстовом файле ровно пять строк и он обязательно существует?

← →
CYBERWOLF13 (2003-12-20 23:45) [5]

черт. че-то давно под виндой не был. извините, там куча ошибок. полное ламерство получилось.

насчёт файлов Найти похожие ветки