Посмотрите код

[Assemblerru]

тут написал извлечение из файла данных а все это при работе исполнительного файла выдает сообщение "Не числовое выражение" = ну это дословно перевод с ангельского...

int IStrDat = 0;//для загрузки кол=ва строк
SFileData = (GetCurrentDir()) + ("\\База данных\\1.txt");
List ->LoadFromFile (SFileData);//загрузили файл
SDataIn = List ->Strings[0]; //загрузили 1 строку
IStrDat = StrToInt (SDataIn); //перевели для подсчета

AnsiString SiDatStr1;//кол=во минут
AnsiString SiDatStr2;//дневной тариф
AnsiString SiDatStr3;//ночной тариф
AnsiString SiDatStr4;//итого за разгавор

int IiDat;//нахождение разделительного элемента
float IMaxDat = 0;//максимальное значение

//тоесть 1 № зеказа 2 название пункта 3 кол=во минут
// 4 дневной тариф 5 какой тариф выбран
// 6 ночной тариф 7 итого за разгавор
//=================================== =========
//Цикл нахождения максимума
int IStrokMaxDat = IStrDat; //кол=во строк в файле
IStrokMaxDat = IStrokMaxDat *2;
Label7 ->Visible = true;
int i = 2;//преребор строк

for (; i <= IStrokMaxDat
{
SDataIn = List -> Strings[i];
IiDat = SDataIn.Pos("#");
SiDatStr1 = SDataIn.Delete(1, IiDat);
IiDat = SiDatStr1.Pos("#");
SiDatStr1 = SiDatStr1.Delete(1, IiDat);

IiDat = SiDatStr1.Pos("#");
SiDatStr2 = SiDatStr1;
SiDatStr2 = SiDatStr2.Delete(1, IiDat);

IiDat = SiDatStr2.Pos("#");
SiDatStr3 = SiDatStr2;
SiDatStr3 = SiDatStr3.Delete(1, IiDat+2);

IiDat = SiDatStr3.Pos("#");
SiDatStr4 = SiDatStr3;
SiDatStr4 = SiDatStr4.Delete(1, IiDat);

IiDat = SiDatStr1.Pos("#");
SiDatStr1 = SiDatStr1.Delete(IiDat, 255);

IiDat = SiDatStr2.Pos("#");
SiDatStr2 = SiDatStr2.Delete(IiDat, 255);

IiDat = SiDatStr3.Pos("#");
SiDatStr3 = SiDatStr3.Delete(IiDat, 255);

switch (RadioGroup1 ->ItemIndex)
{
case 0 : {
if (IMaxDat < StrToFloat (SiDatStr1))
{
IMaxDat = StrToFloat (SiDatStr1);
}
Label7 ->Caption = FloatToStr (IMaxDat);
break;
}
case 1 : {
if (IMaxDat < StrToFloat (SiDatStr2))
{
IMaxDat = StrToFloat (SiDatStr2);
}
Label7 ->Caption = FloatToStr (IMaxDat);
break;
}
case 2 : {
if (IMaxDat < StrToFloat (SiDatStr3))
{
IMaxDat = StrToFloat (SiDatStr3);
}
Label7 ->Caption = FloatToStr (IMaxDat);
break;
}
case 3 : {
if (IMaxDat < StrToFloat (SiDatStr4))
{
IMaxDat = StrToFloat (SiDatStr4);
}
Label7 ->Caption = FloatToStr (IMaxDat);
break;
}
}
i = i+2;
}

[NiCola999]

научитесь сначало использовать CODE =)

[Assemblerru]

а по понятятнее объясните пожалуста

[Гром]

Прямо над окошком ввода сообщений есть несколько кнопок. Одна из них - заветный тег CODE (выглядит так: #). В этот тег надо оформлять код программ для того, чтобы их можно было мало-мальски нормально читать. (желательно, конечно, еще и приличное форматирование кода, ну да это уже advanced-feature)