Допоможіть
Як зробити щоб в s1 записати все до двокрапки(:) із s
AnsiString s= Edit1->Text;
AnsiString s1="";
for(int i=0;i<s.Length();i++)
{
if(s[i]!=(AnsiString)":")
s1+=s[i];//Тут щось не так
else
break;
}
Помилка Range check error
Код програми
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
int red=0,green=0,blue=0;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled=true;
AnsiString s= Edit1->Text;
AnsiString s1="";
for(int i=0;i<s.Length();i++)
{
if(s[i]!=(AnsiString)":")
s1+=s[i];
else
break;
}
Edit1->Text=s1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(red<256)
{
Label1->Font->Color=(TColor)RGB(red,green,blue);
Label1->Caption=IntToStr(red)+":"+IntToStr(green)+":"+IntToStr(blue);
if(blue<255)
blue++;
else
if(green<255)
{
green++;
blue=0;
}
else
{
red++;
green=0;
}
}
}
//---------------------------------------------------------------------------
Програма
https://сайт-злодій/d/8_IwWCaXfMDCi