TMemo/de
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (ru) │
Diese Seite erklärt, wie man die TMemo Komponente verwendet. Auf etwas klicken bedeutet immer ein Linksklick, ein Rechtsklick wird explizit erwähnt.
Beschreibung
Ein Steuerelement um mehrzeilige Texte zu editieren.
Verwendung
Um ein TMemo auf einem Formular zu nutzen kann man es einfach auf der Komponentenpalette Standard auswählen und mit einem Klick auf das Formular platzieren. In diesem Textfeld können Sie nun zur Laufzeit einen mehrzeiligen Text bearbeiten.
Haben Sie zum Beispiel zu Ihrem Formular Form1 ein TMemo Memo1 hinzugefügt, können Sie mit Memo1.Text:='Das ist ein einzeiliger Text';
dem Textfeld einen String zuweisen.
Ebenso können Sie überall im Quelltext auf den hinterlegten Text mit myString:=Memo1.Text;
zugreifen.
Möglich ist es auch, einen mehrzeiligen Text Memo1 zuzuweisen mit Memo1.Text:='Das'#13'ist'#13'ein'#13'mehrzeiliger'#13'Text';
, wobei #13 als Zeilenumbruch dient.
Zuweisung eines TStrings oder TStringList
Üblich, um einem TMemo einen Text zuzuweisen, ist die Verwendung einer TStringList oder ihres Vorfahrens TStrings. Folgendes kleines Beispiel zeigt dies (im Eventhandler eines in Form1 eingefügten TButtons Button1):
procedure TForm1.Button1Click(Sender: TObject);
var
myStringList: TStringList;
begin
myStringList:=TStringList.Create; //Meine StringList erstellen
myStringList.Add('Das ist die erste Zeile.'); //dieser eine Zeile zufügen
myStringList.Add('Das ist die zweite Zeile.');
myStringList.Add('Das ist die dritte Zeile.');
myStringList.Add('usw.');
Memo1.Lines.Assign(myStringList); //dem Memo1 den Textinhalt meine StringList zuweisen
myStringList.Free; //Meine StringList im Speicher wieder freigeben
end;
Zeilen direkt einfügen
Man kann auch dem Memo den Inhalt direkt zufügen z.B.:
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear; //alle Zeilen von Memo1 löschen
Memo1.Lines.Add('Das ist die erste Zeile.'); //Zeile hinzufügen
Memo1.Lines.Add('Das ist die zweite Zeile.');
Memo1.Lines.Add('Das ist die dritte Zeile.');
Memo1.Lines.Add('usw.');
end;
Eine Zeile auslesen
Will man wissen, was in einer bestimmten Zeile steht, kann man diese direkt auslesen mit myString:=Memo1.Lines[Index];
. Achtung: der Index von TMemo.Lines ist nullbasiert, d.h. die erste Zeile wäre: myString:=Memo1.Lines[0];
Fügen Sie dem vorhergehenden Beispiel noch einen TButton Button2 hinzu, können Sie sich die dritte Zeile wie folgt ausgeben lassen:
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(Memo1.Lines[2]);
end;
in Bearbeitung --Michl 13:13, 18 May 2014 (CEST)
- Text im Memo markieren + ausgeben lassen
- Text in Memo suchen + weitersuchen (Markierung setzen)
- Weiterführende Infos
Gehe zurück zu: LCL Components | — Komponente zuvor: TEdit/de | Nächste Komponente: TToggleBox/de |