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

[Вадим Мошев]

ночные кошмары!

А расскажи про кошмары подробнее

[min@y™]

А расскажи про кошмары подробнее

сестра! 20 кубиков галоперидола больному!

следующий!

[Вадим Мошев]

Не понял ?

[min@y™]

Не понял

проехали .

[Xo6ut]

Сообщение от 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.

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

Годится, спасибо . Только как теперь разбить этот код на 2 кнопки, т.е кнопка 'сохранить' сохраняется строку с суммой файл, а другая выполняет открытие, подсчет и проверку.

И нужно матрицу из файла в memo отобразить

[Stilet]

Все что в if sum2<>sum then - сохранение.
Остальное (исключая создания и освобождения) открытие и сверка.

[Xo6ut]

Вы наверное недопоняли меня. 1ая кнопка должна открыть файл, вывести в мемо матрицу из файла и посчитать её сумму и также вывести сумму в мемо. Вторая кнопка-сохранить, должна сохранять только сумму матрицы в файл и больше ничего. После сохранения, 1ая кнопка, если мы открываем тот же файл должна начать сверку, если сумма матрицы в том же файле совпадает с суммой в файле , которую мы сохранили, выести сообщение файл обработан, если же не совпадает, просто заново пересчитать сумму и опять вывести все в мемо

Можете переделать?

Вот черт, совсем забыл что по условию задачи, матрица должна быть записана в массив, видимо ваш метод не подходит.

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

Тебе может во фриланс? Сам ты ведь ничего не делаешь, да и не хочешь видимо)))

[Stilet]

Можете переделать?

Уж извини, но я пас )