Как записать каждое число в отдельности в переменную

[Xcopy]

Гуглил! Поиск тоже юзал!

К примеру, есть мемо1, в нем к примеру 3 числа через пробел (на нулевой строке), как записать каждое число в отдельности в переменную?


Скорей всего такая тема уже была, если да, дайте ссылку на тему.

Заранее благодарен!!!

Что за название - "input" ?
Читаем правила...

[Alex Cones]

Stringa := Memo1.Lines[0];

Дальше ищем первый пробел и :

N:= Pos(' ',Stringa);
Chislo1:=StrToInt(Copy(Stringa,0,N-1);
Delete(Stringa,0,N);
Chislo2:=StrToInt(Stringa);

Ясно?

[Xcopy]

Alex Cones, спасибо! Я написал так.

memo1.Lines.LoadFromFile('C:\input. txt');
s:=memo1.Lines[0];
n:=pos(' ',s);
a1:= strtoint(copy(s,0,n-1));
delete(s,0,n);
memo1.Lines.Add(inttostr(a1));

s:=memo1.Lines[0];
n:=pos(' ',s);
a2:= strtoint(copy(s,0,n-1));
delete(s,0,n);
memo1.Lines.Add(inttostr(a2));
...

И из строки 1 2 3 3 2 1
Он правильно взял число 1, но число 2 он не взял. Место этого в переменную а2 записал тоже 1!

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

Alex Cones, спасибо! Я написал так.

И из строки 1 2 3 3 2 1
Он правильно взял число 1, но число 2 он не взял. Место этого в переменную а2 записал тоже 1!

Тоесть, после выполнения в мемо1 было это
1 2 3 3 2 1
1
1

[Пепел Феникса]

delete(s,1,n);

[Alex Cones]

Memo1.Lines.LoadFromFile Bla-bla-bla;
S:=Memo1.Lines[0];
ShowMessage(S); \\ Для проверки
While S<>'' do
Begin
 N:=Pos(' ',S);
 Memo1.Lines.Add(Copy(S,1,N-1);
 Delete(S,1,N); 
End;

По идее должно сработать, писал здесь...

delete(s,1,n);

Точно! Блин, а тут правильно написал... Пора на пенсию...

2TC: В COPY тоже 1 должно быть.

[Xcopy]

НЕ ПОМОГАЕТ!!!

memo1.Lines.LoadFromFile('C:\input. txt');
s:=memo1.Lines[0];
n:=pos(' ',s);
a1:= strtoint(copy(s,0,n-1));
delete(s,1,n);
memo1.Lines.Add(inttostr(a1));

s:=memo1.Lines[0];
n:=pos(' ',s);
a2:= strtoint(copy(s,0,n-1));
delete(s,1,n);
memo1.Lines.Add(inttostr(a2));

Ответ:
1 2 3 3 2 1
1
1

[quit]

S:=Trim(Memo1.Lines[0])

будет надежнее

[Xcopy]

По идее должно сработать, писал здесь...

Да, он записывает цифру 1 в переменую а1, но в переменую а2 цифру 2 не записывает!!

Код:

S:=Trim(Memo1.Lines[0])

будет надежнее

Хм... Если я использую Trim, как я определю потом где цифра заканчивается и начинается новая?
Сори за флуд.

[quit]

Xcopy, исходя из вашего кода можно сделать вывод, что вы все время берете первоначальную строку

memo1.Lines.LoadFromFile('C:\input. txt');
s:=Trim(memo1.Lines[0]); //на тот случай, если перед строкой есть пробелы
n:=pos(' ',s);
a1:= strtoint(copy(s,0,n-1));
delete(s,1,n);
memo1.Lines.Add(inttostr(a1));

s:=memo1.Lines[0];//она вообще не нужна

n:=pos(' ',s);
a2:= strtoint(copy(s,0,n-1));
delete(s,1,n);
memo1.Lines.Add(inttostr(a2));

[russian-stalker]

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=memo1.Lines.Strings[0];
while length(s)<>0 do
begin
  if pos(' ',s)<>0 then
  begin
    memo1.Lines.Add(copy(s,1,pos(' ',s)-1));
    delete(s,1,pos(' ',s));
  end else
  begin
    memo1.Lines.Add(copy(s,1,length(s)));
    delete(s,1,length(s));
  end;
end;
end;

end.