определение числа слов в дельфи

[dearkato]

Составить программу определения числа слов в предложении, введенного с клавиатуры.
На паскале я эту программу написала, а вот в дельфи не получается(( как мне нужно исправить эту, если предложение вводится в edit1, а количество слов выводится в label?

Uses Crt;
var
i,k,ks,l:integer; с:char; s:string;
begin
ClrScr;
writeln('Введите строку');
writeln;
readln(s) ;
l:=length(s);
k:=0;
for i:= 1 to l do
begin
c:=s[i];
if c=' ' then k:=k+1
end;
ks:=k+1;
writeln;
writeln('количество слов в данной строке составляет ',ks);
readln
end.

[Alex11223]

если предложение вводится в edit1

edit1.Text — это тоже строка.

количество слов выводится в label

label1.Caption:=IntToStr(количество _слов)

[dearkato]

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

edit1.Text — это тоже строка.
\

а как тогда можно записать c:=s? s - это и есть текст, вводимый в edit. и с нельзя присвоить edit1.Text

[Ghost of Night]

Вы хотя бы сами понимаете что пишете?

c:=s;

вы символьному типу присваиваете строку.....

c := s[i]

так будет правильнее

[Alex11223]

Эм...с у вас это char (символ), а s — строка. Как вы собрались с:=s?

[Stilet]

как тогда можно записать c:=s?

А разве в паскале это сработает?
Разве можно присвоить символу строку?
Думаю ты хотела написать так

c:=s[i];

Тогда вначале присвой переменке S значение из edit1.Text

[Alex11223]

Тогда вначале присвой переменке S значение из edit1.Text

Или edit1.Text[i].

[dearkato]

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

Тогда вначале присвой переменке S значение из edit1.Text

а как? мы только начали в дельфи такие программы писать и я не могу разобраться как можно присваивать текст из edit переменным((

[dearkato]

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

а как? мы только начали в дельфи такие программы писать и я не могу разобраться как можно присваивать текст из edit переменным((

ой, все, дошло))) написала) спасибо огромное))