Проверка слов - Общие вопросы Delphi

vizor9 · 15.04.2009, 18:51

Привет всем =), есть один вопрос, я написал прогу подоби теста, ну или можно сказать проверка написания слов прога.jpg, вот помогите мне сделать так, чтоб на форме еще был компонент типа Memo, и при написании слова и нажимании на интер слово переходило в Memo и так все слова, после этого показывает какие слова написаны правильно а какие нет т.е сверяем слова латинские с русскими

Ntlegend · 15.04.2009, 19:10

от код шобы отправиьт в мемо по нажатию на ентер

Код:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key<>13
 then exit;
Memo1.Lines.Add(Edit1.Text);
Edit1.Text:='';
end;

а дальше проверяй в цыкле Memo1.Lines.Strings[i] чтобы было написано верно

vizor9 · 16.04.2009, 06:31

давай я тебе выложу программу свою, а ты её упростишь в написании, а то у меня код какой то примитивный, и сделаешь как будет лучше.
Прога.rar

Написан на ДЕЛФИ 7:

15.04.2009, 18:51	#1
vizor9 Пользователь Регистрация: 25.05.2007 Сообщений: 59	Проверка слов Привет всем =), есть один вопрос, я написал прогу подоби теста, ну или можно сказать проверка написания слов прога.jpg, вот помогите мне сделать так, чтоб на форме еще был компонент типа Memo, и при написании слова и нажимании на интер слово переходило в Memo и так все слова, после этого показывает какие слова написаны правильно а какие нет т.е сверяем слова латинские с русскими

15.04.2009, 19:10	#2
Ntlegend Форумчанин Регистрация: 12.05.2007 Сообщений: 373	от код шобы отправиьт в мемо по нажатию на ентер Код: `procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key<>13 then exit; Memo1.Lines.Add(Edit1.Text); Edit1.Text:=''; end;` а дальше проверяй в цыкле Memo1.Lines.Strings[i] чтобы было написано верно Перемен! - требуют наши сердца. Перемен! - требуют наши глаза. В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Дана строка, состоящая из нескольких слов. Найти количество слов, которые содержат хотя бы одну букву "А"	Mashaa	Помощь студентам	13	09.12.2009 13:28
Составить в алфавитном порядке список всех слов, встречающихся в тексте, и количество этих слов.	KAPAHDAW	Паскаль, Turbo Pascal, PascalABC.NET	2	17.02.2009 01:19
Вывод слов	jakson_sun	Общие вопросы C/C++	1	22.01.2009 17:12
Подсчет слов	Stanislav	Общие вопросы Delphi	11	28.08.2008 10:37
c\c++ массив слов	FreeJaile	Общие вопросы C/C++	7	04.04.2008 00:39

16.04.2009, 06:31	#3
vizor9 Пользователь Регистрация: 25.05.2007 Сообщений: 59	давай я тебе выложу программу свою, а ты её упростишь в написании, а то у меня код какой то примитивный, и сделаешь как будет лучше. Прога.rar Написан на ДЕЛФИ 7: