Архив форумов ЦИТФорума

[Rizvan]

Привет.

Как можно задать переменную (например int i=001) чтобы при вставке i в текстовый файл было 001, а у меня вставляет просто 1.

Например:

TStringList *List = new TStringList;
int i=0;
int k=001;
void __fastcall TForm1::Button1Click(TObject *Sender)
{

AnsiString S1=MaskEdit1->Text;
AnsiString S11=MaskEdit2->Text;
AnsiString S2="e:\\doc\\txt\\1";
List->Insert(i,k+S1+S11);
k=k+001;
i=i+1;
List->SaveToFile(S2);
}

[Adil]

Тогда пиши в файл "ручками":
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString S1=MaskEdit1->Text;
AnsiString S11=MaskEdit2->Text;
AnsiString S2="e:\\doc\\txt\\1";
List->Insert(i,k+S1+S11);
k++;//заче м одно и то же делаешь?
i++;
FILE *fop=fopen(S2.c_str(),"a+t");
if(fop)
{
fprintf(fop,"\n%03d%s",k,(S1+S11).c_str());
fclose(fop);
}
else
ShowMessage("Error writing to file!");
}