Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

у меня есть memo1.lines мне надо,чтоб первое слово на первой

Dor © (2003-01-19 12:11:00)
у меня есть memo1.lines мне надо,чтоб первое слово на первой строке было отображено в edit1.text второе в edit2.text ну и.т.д

Anatoly Podgoretsky (2003-01-19 15:59:00) [1]
Вот тут мы пришлик к тому, что считает автор строкой, некоторые не в состоянии ответить на этот вопрос.

Reindeer Moss Eater (2003-01-19 15:53:00) [2]
То, какое именно слово окажется первымна второйстроке мемо зависит от многих факторов. В том числе от размера шрифта, ширины самого мемо и т.д.

Reindeer Moss Eater (2003-01-19 13:13:00) [3]
А ничего это не меняет. Все равно неправильно.

microsoft (2003-01-19 13:09:00) [4]
Примечание: Основной код содержится в TForm1.Button1Click
остальное печатать НЕ НАДО

Reindeer Moss Eater (2003-01-19 13:04:00) [5]
Если честно, то ерунда полная.

microsoft (2003-01-19 13:02:00) [6]
нажатие На кнопку Слова копируются в Edit1,2,3 В ринципе для увеличения количества Edit-ов вствавляй
Str:=Copy(str,lenon+1,Length(Memo1.Lines[0]));
Edit3.Text:=Copy(str,0,lenon);
Где вместо Edit3 Номер Edit-а
procedure TForm1.Button1Click(Sender: TObject);
var lenon:Integer;
str:String;
begin
lenon:=Pos(" ",Memo1.Lines[0]);
Str:=Copy(Memo1.Lines[0],lenon+1,Length(Memo1.Lines[0]));
Edit1.Text:=Copy(Memo1.Lines[0],0,lenon);
lenon:=Pos(" ",str);
Edit2.Text:=Copy(str,0,lenon);
Str:=Copy(str,lenon+1,Length(Memo1.Lines[0]));
Edit3.Text:=Copy(str,0,lenon);
end;

Reindeer Moss Eater (2003-01-19 12:37:00) [7]
+ поиск позиции в Memo1.Lines.Text c которой начинается нужная строка в мемо1

Anatoly Podgoretsky (2003-01-19 12:32:00) [8]
Memo.Lines, Pos, FindComponent, I

Anatoly Podgoretsky (2003-01-19 12:30:00) [9]
А 10000 на на edit10000.text

Reindeer Moss Eater (2003-01-19 12:14:00) [10]
Ищи в FAQ примеры определения положения курсора в мемо.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »