Borland Builder c++ запись в файл переменных

[asa52]

Добрый день! Стоит задача в Borland Builder C++ 6.(2002 год)

У меня стоит задача сохранить две переменные:

for (j=0; j<m; j++)
   {
   r[j]=hr/2+hr*j;
   }
 
for (j=0; j<m; j++)
{
vsput[j]=(r[j]/(U*electron));
}

Эти переменные нужно записать в txt файл примерно вот так:

КодВыделить код
0.0 0.0
1.2 9.3
3.1 51.3
44 43.2
и т.п.

зависит от константы m

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

Сам пробовал это сделать через вот это

TStringList* sl= new TStringList();
sl->Add(r[j]+" "+q[j]);
sl->SaveToFile("result.txt");
delete sl;

В результате он сохранял только одну циферку которая никак не может быть циферкой из этих переменных.
Заранее благодарю за любую помощь!

[Пётр Седов]

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

Сам пробовал это сделать через вот это

TStringList* sl= new TStringList();
sl->Add(r[j]+" "+q[j]);
sl->SaveToFile("result.txt");
delete sl;

В результате он сохранял только одну циферку

Потому что тут цикл нужен. И ещё, в C++ когда число «плюсуем» со строковым литералом (" "), это число не преобразуется в строку, а вместо этого происходит адресная арифметика, потому что строковый литерал неявно преобразуется в указатель. Надо использовать функции вроде FormatFloat:

TStringList* sl = new TStringList();
for (j = 0; j < m; j++) {
  sl->Add(FormatFloat("0.0", r[j]) + " " + FormatFloat("0.0", q[j]));
}
sl->SaveToFile("result.txt");
delete sl;

Код не компилировал, возможно вызовы функции FormatFloat надо оборачивать в AnsiString. А вообще, создать текстовый файл можно без всякого TStringList, например через stdio:

FILE* file = fopen("result.txt", "wt");
if (file == NULL) {
  Application->MessageBoxA("Файл не создался", "Ошибка", MB_OK);
  return;
}
for (j = 0; j < m; j++) {
  fprintf(file, "%.1f %.1f\n", r[j], q[j]);
}
fclose(file);