Программа для работы со строками

[Crisr7777]

Всем добрый день.
Прошу вас помочь мне в решении одной задачи на Delphi.
Задача: Есть текстовый файл, примерно с таким содержанием:
@123
he1h
he12
10hh
.
.
.
#123.... = какое-то число.
Задача состоит в следующем, это должна быть консоль, в которой после определяющего @123 далее по строкам идет сложение строк в которых содержатся 16-ти ричные числа. После сложения нам надо заменить #123... на полученную сумму, которая у нас получилась при сложении.
Другими словами: когда мы видим @, далее мы начинаем складывать строки друг с другом, до того момента, когда мы увидели #. После того, как увидели #, записываем нашу сумму вместо, числа #123.
Буду очень благодарен, если поможете.

[Serge_Bliznykov]

TStringList
метод LoadFromFile
цикл по строчкам.
в цикле,
если в строке в начале "@" - то обнуляем переменную с суммой
если в строке в начале "#" - выводим переменную с суммой в данную строчку
иначе
взять число из строки (с проверкой, что это именно число) и суммировать.

Выгрузить стринглист в файл методом SaveToFile('имяфайла.txt');

конец.

[Crisr7777]

Спасибо, Сергей, но сложность в том, что я не могу понять, как в Delphi сложить по строкам, 16-ти ричные числа, какими командами? Если не сложно можете пример скинуть?

[min@y™]

А как программа должна вести себя в случае ошибки?
И, таки да, автор, дай исходный файл.

[Crisr7777]

Больше значение пока не имеет, как будет при ошибке.
Пока все, что есть:
var
myFile: TextFile;
s, buf: string;
begin
AssignFile(myFile, 'test.txt');
Reset(myFile);
while not eof(myFile) do
begin
Readln(myFile, s);
if s = 'привет' then s:= '&3';
buf:= buf + s + #13#10;
end;
CloseFile(myFile);
Rewrite(myFile);
Writeln(myFile, buf);
CloseFile(myFile);
end.
Тут заменяется нужная строка. Но как сложить значения не очень понимаю.

[min@y™]

Я файл просил. Тебе жалко штоли?

[Serge_Bliznykov]

Crisr777, очень жаль, что Вы проигнорировали мой совет насчёт TStringList

Но как сложить значения не очень понимаю.

вот пример - тыц

program ideone;
uses sysutils;

var s : string;
  summa:integer;
begin
	summa := 0;
	s:='0e1a';
	summa := summa + StrToInt('$'+Trim(s));
	
	s:='  ee12 ';
	summa := summa + StrToInt('$'+Trim(s));
	
	s:='10fd';
	summa := summa + StrToInt('$'+Trim(s));
	
	WriteLn('Summa in decimal = ', summa);
	WriteLn('Summa in hex = ', IntToHex(summa,8));
	
end.

но учтите, что

he1h
he12
10hh

это НЕ ШЕСТНАДЦАТЕРИЧНЫЕ числа ( нет цифры h в записи hex-числа).