Прочитать данные из файла до первого пробела

[Cookson]

Как прочитать данные до первого пробела именно в строку? s:string; readln(s) читает до конца строки, read(s) тоже.

[noxin]

А именно надо считать так или не обязательно?
Ведь можно просто считать строку, а потом скопировать с неё данные до первого пробела

[spider844360]

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

Как прочитать данные до первого пробела именно в строку? s:string; readln(s) читает до конца строки, read(s) тоже.

ТЕБЕ ПРОСТО НУЖНО СОСТАВИТЬ УСЛОВИЕ ЧТОБЫ ОН ЧИТАЛ ДО ПРОБЕЛА.Т.Е ЕСЛИ СИМВОЛ СТРОКИ ПРОБЕЛ ТОГДА КОНЕЦ .ПРИМЕРНО ТАК - IF S[I]=' ' ; THEN END. ЕСЛИ НЕ ПОНЯТНО ПИШИ В АСЮ 566584349

[Grag]

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

Как прочитать данные до первого пробела именно в строку? s:string; readln(s) читает до конца строки, read(s) тоже.

Открываешь файл как Char, затем в цикле

 reset(f,'xxx.xxx');  
  repeat
    read(f,Simbol);
    S:=S+Simbol
  until (Eof(f) or (Simbol=' ')

[zumm]

А зачем так мучится?
line: string;
s: string[1];

while s<>' ' do
read(s);
line:=line+s;
end;

вот и все...

[Grag]

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

А зачем так мучится?
line: string;
s: string[1];

while s<>' ' do
read(s);
line:=line+s;
end;

вот и все...

А чему у тебя равно s перед началом цикла??? Ведь можно так и не войти в цикл, если у тебя вдруг окажется S[1]=' '... И из чего ты читаешь S ??? А если файл пустой? Есть циклы с пост-условием, а есть с предусловием... Есть вероятность того, что цикл с предусловием никогда не будет выполнен...