Guest User

Untitled

a guest
Jun 21st, 2018
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.49 KB | None | 0 0
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include "Unit1.h"
  5. #include "Functions.cpp"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9.  
  10. TForm1 *Form1;
  11. AnsiString input_string;
  12. char *input_char = (char *)malloc(1000); // исправлено
  13. //---------------------------------------------------------------------------
  14. __fastcall TForm1::TForm1(TComponent* Owner)
  15. : TForm(Owner)
  16. {
  17.  
  18. //Memo1->Text=AnsiString(base_mem);
  19. }
  20. //---------------------------------------------------------------------------
  21. void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
  22. {
  23. if (Key==13) {
  24. i[0]=1; while (i[0]!=100) {i[i[0]]=0;i[0]++;} i[0]=0; // счетчики -> ноль, старт
  25. input_string=Edit1->Text;
  26. input_char = input_string.c_str(); // исправлено
  27. //start();
  28. ofstream base_file("base.txt", ios::app );
  29. while (!base_file.eof()){base_file.write((char*)&(input_char[i[7]]), 1);i[7]++;}
  30. base_file.close();/*закрываем файл*/i[7]=0;
  31.  
  32. }
  33. }
  34. //---------------------------------------------------------------------------
  35. //input_char = Edit1->Text.c_str();
  36. //strncat(input_char, "123", /*strlen(input_char)*/3);
  37. //MessageBox(0, base_mem, "Message", MB_ICONINFORMATION);
  38. // Напишите следующий код: AnsiString a = "Hello World";char *b = a.c_str();
  39. // AnsiString(имя указателя)
Add Comment
Please, Sign In to add comment