TMemo i wstawianie tekstu ...
Komponent TMemo przechowuje tekst w polu TStringList, ktore jest
dostepne poprzez:
Aby dopisac do danej linii tekst lub przeprowadzic jego modyfikacje nalezy zastosowac nastepujacy sposob:
1. pobrac aktualna zawartosc danej linii TMemo
2. dodac odpowiedni tekst (komentarz itp)
3. skasowac stara linie w TMemo (dlaczego o tym ponizej)
skasowanie starej linii jest niezbedne, gdyz wstawienie nowej linii wiaze sie z przesunieciem wszystkich juz istniejacych linii o jedna pozycje w dol.
spowoduje wiec wstawienie danej linii na pozycji 3 w Memo1, retsza itniejacych linii zostane przesunieta o 1 pozycje w dol. Aby tego uniknac, nalezy wlasnie wykasowac dotychczas istniejaca linie a dopiero potem wstawic jej poprzednia, uaktualniona zawartosc
4. stawiamy uaktualniona linie na jej poprzednia pozycje
Gotowe
dostepne poprzez:
Memo->Lines->Strings[index] ...
Aby dopisac do danej linii tekst lub przeprowadzic jego modyfikacje nalezy zastosowac nastepujacy sposob:
1. pobrac aktualna zawartosc danej linii TMemo
AnsiString S1 = Memo1->Lines->Strings[5];
2. dodac odpowiedni tekst (komentarz itp)
S1.Insert("Text 2",S1.Length()+1);
3. skasowac stara linie w TMemo (dlaczego o tym ponizej)
Memo1->Lines->Delete(5);
skasowanie starej linii jest niezbedne, gdyz wstawienie nowej linii wiaze sie z przesunieciem wszystkich juz istniejacych linii o jedna pozycje w dol.
Memo1->Lines->Insert(3,"to jest test");
spowoduje wiec wstawienie danej linii na pozycji 3 w Memo1, retsza itniejacych linii zostane przesunieta o 1 pozycje w dol. Aby tego uniknac, nalezy wlasnie wykasowac dotychczas istniejaca linie a dopiero potem wstawic jej poprzednia, uaktualniona zawartosc
4. stawiamy uaktualniona linie na jej poprzednia pozycje
Memo1->Lines->Insert(5,S1);
Gotowe
Autorem tekstu jest:
Marek Hajduczenia
Materiał dodany przez użytkownika: marek_haj