Проблема с массивом !!!

[drylozav]

ты попал в точку . в принципе я думаю , что надо пользоваться функцией pos ???
то есть находить подстроку в строке , но я могу и ошибаться .

связь есть просто я не совсем последовательно изложил свою мысль

[Don Karleone]

Сообщение от drylozav

ты попал в точку . в принципе я думаю , что надо пользоваться функцией pos ???
то есть находить подстроку в строке , но я могу и ошибаться .

Какую подстроку ты собираешься искать??? Для того чтобы найти подстроку ее надо знать, а у тебя числа разные.

[drylozav]

don . я только предположил , если ты знаешь как поделись опытом .

[Mad_Cat]

Лови,чувак

procedure TForm1.Button1Click(Sender: TObject);
var
pp,po:string;
i:integer;
ch:integer;
s:string;
begin
pp:='';
po:='';
for i := 0 to Memo1.Lines.Count-1 do
begin
  s:=memo1.Lines[i];
  s:=trim(s);
  s:=s+' ';
while s<>'' do
begin
  if (strtoint((copy(s,1,pos(' ',s)-1)))>0) and (pp='')
       then pp:=(copy(s,1,pos(' ',s)-1));
  if (strtoint((copy(s,1,pos(' ',s)-1)))<0)
       then po:=(copy(s,1,pos(' ',s)-1));
       delete(s,1,pos(' ',s));
       end;

end;
showmessage(pp+':'+po);
end;

разделитель между числами----пробел
да и еще обработку ошибки EConvertError как нить сам прикрути

объясни пожалуйста , то что ты написал

я написал реализацию того алгоритма который описан выше мной же!
а обьяснять вам преподы должны!

[drylozav]

о господи ! если тебя не затруднит то объясни пожалуйста , то что ты написал . ты ищешь количество чисел в строке ??

ну и что теперь получается , теперь можно находить 1-ое от-ное и последнее положительное ??

[Don Karleone]

Сообщение от drylozav

ну и что теперь получается , теперь можно находить 1-ое от-ное и последнее положительное ??

ну он же тебе код выложил, который находит 1 положительное и последнее отрицательное.

[drylozav]

а можно вопрос ! а вот скажите можно этот массив вытаскивать из файла куда нибудь еще кроме memo ?
просто для такой матрица stringgrid не походит ! (там можно вводить только квадратную матрицу)
а куда можно еще эту матрицу заносить ?

[Don Karleone]

а чем тебе memo то не нравится. Можно в RichEdit, но это тоже самое, почти.

[drylozav]

просто с memo долго и не понятно . подсчет элементов в строке честно говоря сложноват

[Don Karleone]

Нет, ну можно конечно сделать и по другому, при условии, что числа в файле разделены одним пробелом.