memo problem - ech coraz wiecej pytan :/

0

Kurde nie wiem jakzrobić aby wstawić kilka linijek z memo2 do memo1 ale aby te linijki z memo2 były wstawione od linijki którą ja sobie wybiorę np. 4;

tekst memo2:

OPEK
OPEK

wstawiam to do linijki 3 (no od linijki)

============================
0:
1:
2:
3:OPEK - juz wstawione
4:OPEK - juz wstawione
5:
6:nosz kurdę
7:

probowalem zrobic cos z addstrings ale nie wiem gdzie napisac od kąd mam to wstawić)

ekhm tego sie raczej nie da (to wyżej)

Jezeli nikt nie wie o co mi chodzi to mówię - coś podobnego jak ctrl+c apotem ctrl+v :)

0

Proponuje czytac help'a :

&ltHELP&gt
procedure Insert(Index: Integer; const S: string);
Introduces an abstract method to insert a string at a specified position.
&lt/HELP&gt

Pozdrawiam
Fojcik

0

Memo1 - docelowy, Memo2 - zrodlo, Edit1 zawiera numer linijki do wstawienia

procedure TForm1.Button1Click(Sender: TObject);
begin
if (StrToIntDef(Edit1.Text,-1)&lt0) or
(StrToInt(Edit1.Text)&gtMemo1.Lines.Count) then
Exit;
Memo1.Lines.Insert(StrToInt(Edit1.Text),Memo2.Text);

end;

PS. jesli Memo2 ma na koncu pusta linie, jak to bywa np gdy wypelniasz je:

for i:=0 to 1 do
Memo2.Lines.Add('Memo2 '+IntToStr(i));

wtedy ta pusta linia tez sie przeniesie. Trzeba sie jej pozbyc np tak:

(...)
Memo1.Lines.Insert(StrToInt(Edit1.Text),Memo2.Text);

if Memo1.Lines[StrToInt(Edit1.Text)+Memo2.Lines.Count]='' then
Memo1.Lines.Delete(StrToInt(Edit1.Text)+Memo2.Lines.Count);

end;
--Pawel

Delphi6

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0