Делфи

[Астасья]

Помогите с решение(с делфи у меня не очень)
1.На экране имеется Tedit,Tmemo,кнопка.В Tedit вводится произвольное текстовое предложение.По нажатию на кнопку в Tmemo должны быть выведены построчно все слова,входящие в предложение-по 1 слову в строке
2 На экране два tedit и кнопка.В первый tedit вводим выражения вида число знак число знак....Например 12+5+7-6,знаки только + или -.По нажатию на кнопку нужно вычислить результат и записать его во второй tedit.
3 На экране имеется Tedit,кнопка.В Tedit вводится произвольное текстовое предложение.При нажатии на кнопку нужно преобразовать строку так чтобы каждое слово начиналось с прописной буквы


В первой задаче как-то так!
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'' then
Memo1.Clear;
Memo1.Lines.Add(Edit1.Text);
end;
Не получается построчно!!!

[wital1984]

В первой задаче как-то так!
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'' then
Memo1.Clear;
Memo1.Lines.Add(Edit1.Text);
end;
Не получается построчно!!!

Конечно не получится -  вы в Memo1 сразу добавляете весь текст из Edit1: Memo1.Lines.Add(Edit1.Text);
Нужно сначала занести его в какую-нибудь текстовую переменную, а потом организовать в цикле выделение отдельных слов из этой переменной. А уже отдельные слова записывать через Memo1.Lines.Add

[Астасья]

организовать в цикле выделение отдельных слов из этой переменной- это как?

[ki]

поиск по пробелам, запятым, точкам...
Например, имеете строку s="это строка, наверно"
Соответственно length(s)=19;
в этой строке 3 слова: "это"=s[1]+s[2]+s[3]; "строка"=s[5]+... и т.д.
Т.е. в посимвольном переборе в цикле нужно осуществить конкатенацию и фильтрацию пунктуации и пробелов...

Что-то вроде этого...может есть путь проще, не знаю)

[Астасья]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i:integer;
begin
if Edit1.Text<>'' then
s:= Edit1.Text;
begin
for I := 0 to List.Count - 1 do
begin
if s:=' ' then
Memo1.Lines.Add(s);
writeln;
i:=i+1;
else i:=i+1;
end;
end;
end;


Как то так????Делфи это конечно не моё!!!!Help

[ki]

for I := 0 to List.Count - 1 do

А почему так? надо ведь по строке цикл делать: 
 for I := 1 to length(s) do

if s:=' ' then

if (s<>' ')or(s<>'.')or(s<>',') then temp:=temp+s
else
begin
  memo1.lines.add(temp);
  temp:='';
end;

writeln;
i:=i+1;
else i:=i+1;

Это не нужно, инкрементация идет в самом цикле, writeln тоже лишнее...

[Астасья]

всё равно не работает


procedure TForm1.Button1Click(Sender: TObject);
var s,t:string;
i:integer;
begin
if Edit1.Text<>'' then
s:= Edit1.Text;
for I := 1 to length(s) do
begin
if (s<>' ')or(s<>'.')or(s<>',') then
t:=t+s
else
 begin
  memo1.lines.add(t);
  t:='';
end;
end;
end;
end.

[wital1984]

всё равно не работает

Да потому что в этом фрагменте:

Код: [Выделить]

if (s<>' ')or(s<>'.')or(s<>',') then должно быть не s, а s [ i ] (s с индексом i без пробелов).
Хотя ki написал правильно, это можно увидеть, если попробовать процитировать его сообщение
Это известный глюк форума.

[ki]

угу, конечно s...сорри)

[Астасья]

procedure TForm1.Button1Click(Sender: TObject);
var s,t:string;
i:integer;
begin
if Edit1.Text<>'' then
s:= Edit1.Text;
for I := 1 to length(s) do
begin
if (s<>' ')or(s<>'.')or(s<>',') then
t:=t+s
else
 begin
  memo1.lines.add(t);
  t:='';
end;
end;
end;
end.


ВСЁ равно не работает=(((

[wital1984]

...
ВСЁ равно не работает=(((

условие написано немного неправильно, по нему else никогда не выполнится. лучше написать что-то вроде:
if (s=' ') then
begin
  Memo1.Lines.Add(t);
  t:='';
end
else t:=t+s;

[ki]

Согласен, вместо "or" нужно "and"...

[wital1984]

Согласен, вместо "or" нужно "and"...

можно и так. только один нюанс останется: в тексте обычно после знака препинания пробел стоит, т.е. 2 разделителя подряд. Из-за этого этот код будет вставлять пустые строки в memo. Но с этим тоже бороться несложно: либо дополнительный вложенный if, либо использовать один разделитель - пробел, а из конца строки вырезать запятые, точки и т.п. Или, если случайно будет больше одного пробела  - вообще дополнительный цикл

[ki]

Ок, еще одну проверку перед вставкой в мемо на непустоту временной переменной...