Delphi és TMemo
Delphi és TMemo. Példa munka multi-input mezők Delphi
Kereste a Delphi és TMemo. Egy példa a dolgozó többsoros beviteli mezők a Delphi, és különösen az Ön számára, mi készítettük ezt a leckét Delphi. Minden lecke igyekszünk biztosítani a Delphi forráskódot, így a végén a cikk Delphi és TMemo. Egy példa a dolgozó többsoros beviteli mezők Delphi látható egy példa a Delphi, Delphi kód, amely lehetővé teszi, hogy vizsgálja meg a Delphi és TMemo. Példa munka multi-input mezők Delphi részletesebben.
Tudjon programozási internetes honlapján www.DelphiSchool.3dn.ru és elsajátítani az alapokat a programozás. Oktatási programozás DelphiSchool ez programozás kezdőknek és tapasztalt programozók.
Ábra. Forma és TMemo alkatrész rajta
Most hozzunk létre egy eseménykezelő az onclick gombot „Törlés”, és írjon a következő kódot:
? 200 '200px': '' + (this.scrollHeight + 5) + 'px'); „> eljárás TForm1.CleanButtonClick (Sender: TObject # 41 ;;
kezdődik
MyMemo.Lines.Clear;
végén;
? 200 '200px': '' + (this.scrollHeight + 5) + 'px'); „> eljárás TForm1.FormShow (Sender: TObject # 41 ;;
kezdődik
ha FileExists (Memo.txt '# 41; majd
MyMemo.Lines.LoadFromFile (Memo.txt '# 41 ;;
végén;
Nézzük ezt a kódot. Az első sorban, akkor ellenőrizze, hogy van-Memo.txt fájlt, és ha létezik, akkor hívja az LoadFromFile Lines, amelynek segítségével betöltjük a szöveget Memo.txt a MyMemo.
Most hozzunk létre egy eseménykezelő az OnClose forma és írjuk be a következő kódot:
? 200 '200px': '' + (this.scrollHeight + 5) + 'px'); „> eljárás TForm1.FormClose (Sender: TObject; var Action: TCloseAction # 41 ;;
kezdődik
MyMemo.Lines.SaveToFile (Memo.txt '# 41 ;;
végén;
Ez azt jelentené, hogy a közeli programunk, minden, ami meg van írva a Memo lesz egy fájlban tárolják Memo.txt
És végül, lássuk, hogyan kell programozottan hozzáadni, törölni és módosítani a vonal Memo. Ehhez használja a húrok ingatlan tulajdonságait Lines. Például, ha azt akarjuk, hogy hozzáférjen a nulla vonalat, majd írjuk MyMemo.Lines.Strings [0], az első sorban - MyMemo.Lines.Strings [1], stb
Hagyja, hogy a gomb „hozzáadása” írja a onclick eseménykezelő az alábbi kód:
? 200 '200px': '' + (this.scrollHeight + 5) + 'px'); „> eljárás TForm1.AddButtonClick (Sender: TObject # 41 ;;
kezdődik
MyMemo.Lines.Add (Ez a vonal már most hozzá '# 41 ;;
végén;
És a „Törlés” gomb levelet:
? 200 '200px': '' + (this.scrollHeight + 5) + 'px'); „> eljárás TForm1.DelButtonClick (Sender: TObject # 41 ;;
kezdődik
ha MyMemo.Lines.Count <> 0, akkor
MyMemo.Lines.Delete (MyMemo.CaretPos.Y # 41 ;;
végén;
Ebben a példában megnézzük, hogy hány sor van a komponens Memo segítségével Lines.Count tulajdon. Ha az érték nulla, akkor van egy sorban, és törölhetjük az aktuális sort. Ahhoz, hogy távolítsa el a módszer törlése Lines objektumot, ahol csak meg kell adni a kívánt sor számát törölni. Ahhoz, hogy megtudja, az általunk használt ingatlan CaretPos. amely mutatja az aktuális helyzetét a kurzor.
Végül mi írjuk a onclick eseménykezelő az „Edit” gombot, és írja be a kódot:
? 200 '200px': '' + (this.scrollHeight + 5) + 'px'); „> eljárás TForm1.ChangeButtonClick (Sender: TObject # 41 ;;
kezdődik
MyMemo.Lines.Strings # 91; MyMemo.CaretPos.Y]: = 'Lecke Delphi Memo';
MyMemo.Lines.Strings # 91; 0] = 'Mi változott a szöveg';
végén;
Az első sor a kódot, tudni fogjuk a helyzet a kurzor, és módosítsa a string „lecke Delphi Memo”, és a második sor kódot, cseréljük ki az első sorban MyMemo „Mi változott a szöveget.”
Ábra. Delphi példa működés és TMemo