Cчитывание и запись в файл

TStringList * lst = new TStringList();
 
double detect(String str, int pos)
{
    String buf = str;
    pos = pos - 2;
    for(int i = 0; i < pos; i++)
        if(i - 1 < pos)
            buf.Delete(buf.Pos(","), 1);
 
    buf.Delete(1, buf.Pos(","));
 
    if(buf.Pos(","))
        buf.Delete(buf.Pos(","), buf.Length());
 
    if(buf.Pos("."))
    {
        int p = buf.Pos(".");
        buf.Delete(p, 1);
        buf.Insert(",", p);
    }
 
    try
    {
        return StrToFloat(buf);
    }
    catch(...)
    {
        return 0;
    }
}
 
void __fastcall TForm23::Button1Click(TObject *Sender)
{
    lst->LoadFromFile("example.txt");
    double * arr = new double[lst->Count];
 
    for(int i = 0; i < lst->Count; i++)
        arr[i] = detect(lst->Strings[i], 4);
 
    /*
    *Какие-то действия с массивом
    */
 
    for(int i = 0; i < lst->Count; i++)
        lst->Strings[i] = lst->Strings[i] + "," + FloatToStr(arr[i]);
    lst->SaveToFile("example.txt");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
t = Edit1->Text.ToDouble();
ln = Edit2->Text.ToDouble();
lk = Edit3->Text.ToDouble();
dl = Edit4->Text.ToDouble();
   iz_t=0;
   iz_t_l1=0;
   l1=ln;
   l2=ln;
   const
   double konst1 = 1.191e4;
   double konst2 = 1.439e4;
while (((l2-lk)*(l1-lk)>=0) && (l1<lk)) {
  iz_t_l2=konst1/(pow(l2,5))/(exp(konst2/l2/t)-1);
  iz_t=iz_t+(iz_t_l2+iz_t_l1)/2*(l2-l1);
  iz_t_l1=iz_t_l2;
   l1=l2;
   l2=l2+dl;
}
Memo1->Lines->Add("iz_t=" +FloatToStr(iz_t));
}

TStringList *list = new TStringList;
list->Delimiter = ',';
list->DelimitedText = "0,0,200,1.427803";

TStringList *list = new TStringList;
list->QuoteChar='|';
list->DelimitedText="Sampl1|S ample2";

#include <memory>
// ...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  std::auto_ptr<TStringList> list(new TStringList);
  UnicodeString string = "0, 0,   0,    6.092";
//  ShowMessage("Начальная строка: "+string);
  Memo1->Lines->Add("Начальная строка: "+string);
  string = StringReplace(string, " ", "", TReplaceFlags()<<rfReplaceAll);
  list->Delimiter = ',';
  list->DelimitedText = string;
//  ShowMessage("Строка без пробелов: "+string);
  Memo1->Lines->Add("Строка без пробелов: "+string);
  for (int i = 0; 0<list->Count; i++) {
    if (list->Count==-1) {return;}
//  ShowMessage("Разделенная строка #"+IntToStr(i+1)+": "+list->Strings[i]);
    Memo1->Lines->Add("Разделенная строка #"+IntToStr(i+1)+": "+list->Strings[i]);
    string = string+". Добавлено: "+list->Strings[i]+" ,";
//  ShowMessage(string);
    Memo1->Lines->Add(string);
  }
}

std::auto_ptr<TStringList> list(new TStringList);

TStringList *s=new TStringList;
s->LoadFromFile("С:\\sample.txt"); // чтение
s->SaveToFile("С:\\sample.txtt"); // запись

delete StringList;

#include <memory>

std::auto_ptr<TStringList> list(new TStringList);
 
TStringList * list = new TStringList;

String *StrList = new String[amount]

String *StrList = new String[10];

String StrList[10];