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

← →
Dor © (2003-01-19 12:11) [0]

у меня есть memo1.lines мне надо,чтоб первое слово на первой строке было отображено в edit1.text второе в edit2.text ну и.т.д

← →
Reindeer Moss Eater (2003-01-19 12:14) [1]

Ищи в FAQ примеры определения положения курсора в мемо.

← →
Anatoly Podgoretsky © (2003-01-19 12:30) [2]

А 10000 на на edit10000.text

← →
Anatoly Podgoretsky © (2003-01-19 12:32) [3]

Memo.Lines, Pos, FindComponent, I

← →
Reindeer Moss Eater (2003-01-19 12:37) [4]

+ поиск позиции в Memo1.Lines.Text c которой начинается нужная строка в мемо1

← →
microsoft © (2003-01-19 13:02) [5]

нажатие На кнопку Слова копируются в 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 13:04) [6]

Если честно, то ерунда полная.

← →
microsoft © (2003-01-19 13:09) [7]

Примечание: Основной код содержится в TForm1.Button1Click
остальное печатать НЕ НАДО

← →
Reindeer Moss Eater (2003-01-19 13:13) [8]

А ничего это не меняет. Все равно неправильно.

← →
Reindeer Moss Eater (2003-01-19 15:53) [9]

То, какое именно слово окажется первым на второй строке мемо зависит от многих факторов. В том числе от размера шрифта, ширины самого мемо и т.д.

Вот тут мы пришлик к тому, что считает автор строкой, некоторые не в состоянии ответить на этот вопрос.

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