Работа с файлом

[Xo6ut]

Ну вот допустим я уже сохранил строку с суммой в файл, и теперь я открываю этот же файл и программа по идее должна пойти по другому алгоритму

[min@y™]

программа по идее должна пойти по другому алгоритму

по идее – да. и чо?

[ДралсяСошибками]

А чем паскалевский ввод\вывод плох и как правильней решить такую задачу?

[Xo6ut]

+ к паскалевскому вводу и выводу, не понимаю почему вы их так хейтерите

[min@y™]

pascal i/o - это обратная совместимость.
для удобной работы с файлами любых типов и размеров давно разработаны стандартные классы, работающие с файлами через WinAPI.

[ДралсяСошибками]

filestream?

[northener]

Сообщение от min@y™

Хотел помочь, уже и мысли появились, что и как сделать...
Но тут увидел старопаскалевский файловый ввод/вывод и желание сразу пропало.

Не трожь старопаскалевский файловый ввод/вывод! Проклят будешь на века!
Ну чем он тебе мешает жить?

[FaTaL]

TFileStream или для небольших текстовиков TStringList.

[Stilet]

program Project1;
uses classes,sysutils;
var st1,st2:TStringList; i,j,sum,sum2:integer;
begin
  st1:=TStringList.Create; st2:=TStringList.Create;
  st1.LoadFromFile('d:\1\q.txt');
  sum:=StrToIntDef(st1.Values['summa'],0);
  sum2:=0;
  for i:=0 to st1.Count-1 do begin
    if copy(st1[i],1,5)<>'summa' then begin
     st2.DelimitedText:=st1[i];
     for j:=1 to st2.Count-1 do
      sum2:=sum2+StrToIntDef(st2[j],0);
    end;
  end;
  if sum2<>sum then begin
   st1.Values['summa']:=IntToStr(sum2);
   st1.SaveToFile('d:\1\q.txt');
  end;
  st1.Free; st2.Free;
end.

Годится идея?

[min@y™]

filestream?

в том числе.

Не трожь старопаскалевский файловый ввод/вывод! Проклят будешь на века!

правильно: если не трогать, оно вонять не будет.

Ну чем он тебе мешает жить?

кровоточат глаза, изжога, ночные кошмары!