Проблема с записью

[Zuba]

Честно говоря вообще не понимаю в чём проблема, в гугле ничего не нашел про эту ошибку.
в общем после компиляции(компоновки) вылетает ошибка:
Project Project1.exe raised exeption class EAccessViolation with message 'Access violation at address 00402D49. Read of address 00000320'. Process stopped. Use Step or Run to continue.

Вообще не понимаю что от меня хочет компилятор
в общем это стало вылетать после добавления этого кода:

void __fastcall TForm2::N4Click(TObject *Sender)
{
TIniFile *Stat = new TIniFile(ExpandFileName("stat.ini"));
AnsiString f = Form1->LabeledEdit1->Text;
String km = Stat->ReadString(f,"kmil", "" );
StrToInt(km);
km=km+1;
Stat->WriteString(f,"kmil", km );
String mm = Stat->ReadString(f,"maxmil", "" );
StrToInt(mm);
if (rez>mm){
IntToStr(rez);
Stat->WriteString(f,"maxmil", rez ); }
String om = Stat->ReadString(f,"obshmil", "" );
StrToInt(om);
om = om+rez;
Stat->WriteString(f,"obshmil", om );
}

Извиняюсь, что за неделю создал тут десяток тем, просто диплом дело тяжкое и появляется куча всяких непоняток

[Stilet]

А ты можешь поставить точку прерывания на начало этого кода, пройтись по шагам и узнать на какой строке AV дает? Я лично криминеля тут не вижу...

[nick42]

StrToInt(km);
km=km+1;

Вот эта запись неправильна. StrToInt возвращает в результате целое в случае, если строка km содержит символами цифры (или запись вида 0xC86E). Вы же решили, что такая запись трансформирует Вашу переменную String в переменную типа int и далее выполняете с ней арифметические операции. Правильно будет так: int A = StrToInt((String)str); A = A+1; str = IntToStr(A); (- это пример, не буквально); дальше я не смотрел,но... пишите код внимательнее.

[Krok27]

StrToInt(km);

А кому присваивается результат ф-ции?

int res = StrToInt(km);
++res;
Stat->WriteString(f,"kmil", IntToStr(res));
 или
Stat->WriteInteger(f,"kmil", res);

if (rez>mm){
IntToStr(rez);

сравниваем строки? Какая строка больше?

om = om+rez;

Конкатенация строк?

[Zuba]

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

Вот эта запись неправильна. StrToInt возвращает в результате целое в случае, если строка km содержит символами цифры (или запись вида 0xC86E). Вы же решили, что такая запись трансформирует Вашу переменную String в переменную типа int и далее выполняете с ней арифметические операции. Правильно будет так: int A = StrToInt((String)str); A = A+1; str = IntToStr(A); (- это пример, не буквально); дальше я не смотрел,но... пишите код внимательнее.

Я переделал программный код, но ничего не поменялось.
всё та же ошибка.

void __fastcall TForm2::N4Click(TObject *Sender)
{
TIniFile *Stat = new TIniFile(ExpandFileName("stat.ini"));
AnsiString f = Form1->LabeledEdit1->Text;
String km = Stat->ReadString(f,"kmil", "" );
int A = StrToInt((String)km);
A = A+1;
km = IntToStr(A);
Stat->WriteString(f,"kmil", km );

String mm = Stat->ReadString(f,"maxmil", "" );
int B = StrToInt((String)mm);
if (rez>B){
mm=IntToStr(rez);
Stat->WriteString(f,"maxmil", mm ); }

String om = Stat->ReadString(f,"obshmil", "" );
int C = StrToInt((String)om);
C = C+rez;
om = IntToStr(C);
Stat->WriteString(f,"obshmil", om );
}

[Stilet]

Пошаговку делал? Трассирование по операторам...

[Krok27]

AnsiString f = Form1->LabeledEdit1->Text;

Попробуй заменить на String

String f = Form1->LabeledEdit1->Text;

А, то у тебя смешение типов строк.

[Zuba]

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

Пошаговку делал? Трассирование по операторам...

Сделал. но мне, как студенту этого не понять) так что оно мне ничего не дало)

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

AnsiString f = Form1->LabeledEdit1->Text;

Попробуй заменить на String

String f = Form1->LabeledEdit1->Text;

А, то у тебя смешение типов строк.

заменил, ничего не поменялось? всё тоже самое)

[Zuba]

Всем спасибо, проблема решена.
у меня с другой формой бока были)

[Krok27]

Project Project1.exe raised exeption class EAccessViolation with message 'Access violation at address 00402D49. Read of address 00000320'. Process stopped. Use Step or Run to continue

Когда выскочит это сообщение, нажми Break или F8, отладчик переместиться в то место, где был выброс исключения. А то мы так в телепатов будем играть до скончания веков. Или выкладывай в аттаче весь исходный код.