считать текст из memo - посимвольно

[prizrak1390]

Вопрос простой до не приличия, но всё таки у мну из-за этого ступор..
Вот мне нужно считать текст из MEMO- ПОСИМВОЛЬНО!!! ТОЕСТЬ СЧИТЫВАТЬ ТЕКСТ ПО 1-му символу, до знака пробел ' '.
Я организовал всё так
while not eoln(memo1.text) do begin
......
if c=' 'then break
else
S:=c+c;
........
мне главное чтобы цикл работал, а то возникает ошибка в while not.....
компилер пишет мол НЕСОВМЕСТИМОСТЬ ТИПОВ
ПОМОГИТЕ ПЛИЗ!!!!!!!!!!!
ЗА РАНЕЕ СПАСИБО

[Gauss]

<<Вот мне нужно считать текст из MEMO- ПОСИМВОЛЬНО!!! ТОЕСТЬ СЧИТЫВАТЬ ТЕКСТ ПО 1-му символу, до знака пробел ' '.>>

Я немного непонял, а можно немного точнее, ты вводишь в мемо текст и тебе нужно... что? Вывести этот текст в другом мемо, только по символам? то есть чтоб между каждой буквой стоял пробел??

[Sibedir]

for i := 1 to Length (Memo1.Text) do

[NoName_emaNoN]

А легче ещё:

s:string; //Та строка
Pos(' ',s);

Всё. И ты знаешь позицию пробела в своеё строке, дальше делай чо хош с этой строкой

[Sibedir]

Ну тада так

i := Pos (' ', Memo1.Text);
if i > 1 then s := Copy (Memo1.Text, 1, i);

Просто человек просил именно с циклом помочь. Кто знает. Может ему именно цикл нужен.

[prizrak1390]

СПАСИБО!!!!!
но мне не нужно искать пробел и в тексте...мне нужно другое
Принцип работы таков...
Считываем по символьно текст из MEmo1 до знака пробел. Как только мы наткнулись на пробел то прерываем работу цикла и считанные символы объединяем,таким образом получив слово. Затем это слово передаётся на обработку и т д....как только слово прошло обработку, мы продолжаем считывать текст из мемо1 до следующего пробела....
Вот так вот...

[mihali4]

Ну тогда вот так:

tmp:=''; //обнуляем строку результата
for i:=1 to Length(Memo1.Text) do
begin
if Memo1.Text[i]<>' ' then  //если не пробел, добавим символ в строку
tmp:=tmp+Memo1.Text[i] else //если наткнулись на пробел
begin
Myproc(tmp); //выполняем что-то с полученной строкой
tmp:=''; //снова обнуляем строку и сначала...
end;
end;

[prizrak1390]

Спасибо за код...только вот он не работает.
Причина в том, что он считывает (i) количество раз первый символ в введённой строке...Например если ввести 12345 то он мне пять раз покажет 1 ,,,я не пойму в чем дело, вернее дело в memo1.text[i]<<если I заменить на например 3 то мы получим пять раз цифру 3 и т д. Так вот дело сново в цикле))))))) я пробовал всё виды Repeat,while,for... и тож самое...мож я чет пропустил??? или может есть другой вариант?!?

[GIO]

работает по-любому...

[puporev]

Ошибка не в этом коде, а скорее там, где выводятся данные.