Изменение txt файла в Delphi

[Кристина68]

Здравствуйте, помогите пожалуйста разобраться. У меня есть txt файл с большим количеством чисел, каждое число мне нужно умножить на значение к примеру 1200, возможно ли всё это автоматизировать в Delphi?:Если можно напишите пожалуйста как?За ранее спасибо!

[Alex11223]

Ну например, так: читать числа из файла, умножать, записывать в другой файл. Или прочитать их все в какой-нибудь массив, потом умножить и записать обратно (перезаписать файл).

[SERG1980]

Используйте TStringList для загрузки файла и в цикле проходите по строкам и умножайте

[Кристина68]

А примерчик не какой не можете скинуть?

[Alex11223]

var f:TStringList;
...
f.LoadFromFile('c:\1.txt');
for i:=0 (или 1 не помню) to f.count do
begin
   temp:=strtoint(f.strings[i]);
   temp:=temp*1200;
   f.strings[i]:=inttostr(temp);
end;
f.LoadToFile('c:\1.txt');

А еще в дельфи можно выделить например TStringList и нажать F1.

[Кристина68]

Вот файл который мне нужно умножать, кроме того как загрузить его в делфи, я понятия не имею как его перемножить!

[Alex11223]

Тогда наверно проще, как в моем первом сообщении.

f1, f2:text;
a: real;
...
assign(f1, 'c:\1.txt');
assign(f2, 'c:\2.txt');
reset(f1);    
rewrite(f2);    //открытие файла для перезаписи (если файл уже существовал, то он будет уничтожен)
while not eof(f1) do
begin
   read(f1, a); //читаем одно число в переменную а
   a:=a*1200;
   write(f2, a);
end;
close(f2);

Ну или вместо второго файла аналогично с массивом.

[Кристина68]

Спасибо, что направили на путь истинный, надеюсь что получиться!

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

Тогда наверно проще, как в моем первом сообщении.

f1, f2:text;
a: real;
...
assign(f1, 'c:\1.txt');
assign(f2, 'c:\2.txt');
reset(f1);    
rewrite(f2);    //открытие файла для перезаписи (если файл уже существовал, то он будет уничтожен)
while not eof(f1) do
begin
   read(f1, a); //читаем одно число в переменную а
   a:=a*1200;
   write(f2, a);
end;
close(f2);

Ну или вместо второго файла аналогично с массивом.

Что-то он ругается на f1, f2:text;

[Alex11223]

f1, f2: TextFile;

[Кристина68]

Спасибо, с этим уже разобралась, но выдаёт новую ошибку
assign(f1, 'c:\1.txt');