Ввод массива

[mTRIX]

Как сделать ввод массива через Edit или Memo?
Нужно найти максимальный элемент, все работает, но вводить нужно пользователю.

#include <stdio.h>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i,maxOtr;
int a[7]={1,2,3,4,5,6,7};
for (i=0; i<=6; i++)
        maxOtr=a[0];
for (i=1; i<=6; i++)
	if (a[i]>maxOtr && a[i]>0)
maxOtr=a[i];
Edit1->Text=IntToStr(maxOtr);
}

[Stilet]

{
int i,m,maxOtr;
for (i=0; i<Memo->Lines->Count; i++){
        m=StrToInt(Memo->Lines[i]);
	if (m>maxOtr && m>0) maxOtr=m;
}
Edit1->Text=IntToStr(maxOtr);
}

Пользователь заполняет Мемо - каждая строчка - новый элемент массива. Массив целых.
Подходит?

[mTRIX]

Cannot convert TStrings to AnsiStrings

[Stilet]

Возможно Memo->Lines->Strings[i], я не спец в Бульбульдере

[mTRIX]

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

#include <stdio.h>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString buf,s;
int i,k=0,mas[7],maxOtr;
s = Edit1->Text;
for(i=1,buf="";i<=s.Length()+1;i++)
 {
  if(i==s.Length()+1)
   {
    mas[k++] = StrToInt(buf);
    break;
   }
  if(s[i]==' ')
   {
    mas[k++] = StrToInt(buf);
    buf = "";
   }
  buf += s[i];
 }
for (i=0; i<=6; i++)
        maxOtr=mas[0];
for (i=1; i<=6; i++)
	if (mas[i]>maxOtr && mas[i]>0)
maxOtr=mas[i];
Edit2->Text=IntToStr(maxOtr);
}

[Nuklon]

Вариант через TEdit

   AnsiString ds = Edit1->Text;
   char* s  = ds.c_str();
   int imax  = 0;

   s  = strtok(s, " \t");
   if(s != NULL)
         imax = StrToInt(s);

   int k;
   while(s != NULL) {
       if((k = StrToInt(s)) > imax)
           imax = k;
      s = strtok(NULL, " \t");
  }

  ShowMessage(IntToStr(imax));

[Mr.Fox]

Опечатка:

{
int i,m,maxOtr;
for (i=0; i<Memo->Lines->Count; i++)
{
    m=StrToInt(Memo->Lines[i]);
	if (m>maxOtr && m>0) maxOtr=m;
}
Edit1->Text=IntToStr(maxOtr);
}