Difference between revisions of "TMemo/de"

From Free Pascal wiki
Jump to navigationJump to search
m
m (Fixed syntax highlighting; deleted category included in page template)
 
(3 intermediate revisions by 2 users not shown)
Line 22: Line 22:
  
 
Üblich, um einem TMemo einen Text zuzuweisen, ist die Verwendung einer [[TStringList-TStrings Tutorial/de|TStringList]] oder ihres Vorfahrens [[TStringList-TStrings Tutorial/de|TStrings]]. Folgendes kleines Beispiel zeigt dies (im Eventhandler eines in ''Form1'' eingefügten TButtons ''Button1'' und einem TMemo ''Memo1''):
 
Üblich, um einem TMemo einen Text zuzuweisen, ist die Verwendung einer [[TStringList-TStrings Tutorial/de|TStringList]] oder ihres Vorfahrens [[TStringList-TStrings Tutorial/de|TStrings]]. Folgendes kleines Beispiel zeigt dies (im Eventhandler eines in ''Form1'' eingefügten TButtons ''Button1'' und einem TMemo ''Memo1''):
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
procedure TForm1.Button1Click(Sender: TObject);
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
 
var
Line 40: Line 40:
  
 
Sie können dem Memo den Inhalt auch direkt zufügen z.B.:
 
Sie können dem Memo den Inhalt auch direkt zufügen z.B.:
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
procedure TForm1.Button1Click(Sender: TObject);
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
begin
Line 56: Line 56:
  
 
Fügen Sie dem vorhergehenden Beispiel noch einen TButton ''Button2'' hinzu, können Sie sich die dritte Zeile wie folgt ausgeben lassen:  
 
Fügen Sie dem vorhergehenden Beispiel noch einen TButton ''Button2'' hinzu, können Sie sich die dritte Zeile wie folgt ausgeben lassen:  
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
procedure TForm1.Button2Click(Sender: TObject);
 
procedure TForm1.Button2Click(Sender: TObject);
 
begin
 
begin
 
   ShowMessage(Memo1.Lines[2]);
 
   ShowMessage(Memo1.Lines[2]);
 +
end;
 +
</syntaxhighlight>
 +
 +
===Bestimmte Zeile(n) löschen===
 +
 +
Sie können im Memo Zeilen mit einem bestimmten Inhalt direkt löschen:
 +
<syntaxhighlight lang=pascal>
 +
procedure subZeileLoeschen(AMemo: TMemo; AString: String);
 +
var intIndex: Integer;
 +
begin
 +
 +
  intIndex := 0;
 +
 +
  while intIndex < AMemo.Lines.Count do
 +
  begin
 +
    // Enthält die aktuelle Zeile den gesuchten Text,
 +
    // dann lösch die Zeile und erhöhe nicht den Index
 +
    if (AnsiContainsStr(AMemo.Lines[intIndex], AString)) then
 +
      AMemo.Lines.Delete(intIndex)
 +
    else
 +
      Inc(intIndex); // erhöhe den Index
 +
  end;
 +
 
end;
 
end;
 
</syntaxhighlight>
 
</syntaxhighlight>
Line 66: Line 89:
  
 
Sie können zur Laufzeit Textteile markieren, indem Sie die linke Maustaste gedrückt halten oder die [Shift]-Taste gedrückt halten und mit der Maus oder Tastatur den Text selektieren. Diesen Text ([[String/de|String]]) können Sie dann zum Beispiel so ausgeben:
 
Sie können zur Laufzeit Textteile markieren, indem Sie die linke Maustaste gedrückt halten oder die [Shift]-Taste gedrückt halten und mit der Maus oder Tastatur den Text selektieren. Diesen Text ([[String/de|String]]) können Sie dann zum Beispiel so ausgeben:
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
procedure TForm1.Button2Click(Sender: TObject);
 
procedure TForm1.Button2Click(Sender: TObject);
 
begin
 
begin
Line 82: Line 105:
 
* Füllen Sie im Eventhandler ''OnClick'' von ''Button1'' das Memo mit einem beliebigen Text, wie im Beispiel [[TMemo/de#Zeilen direkt einfügen|Zeilen direkt einfügen]].
 
* Füllen Sie im Eventhandler ''OnClick'' von ''Button1'' das Memo mit einem beliebigen Text, wie im Beispiel [[TMemo/de#Zeilen direkt einfügen|Zeilen direkt einfügen]].
 
* Fügen Sie im Quelltexteditor folgende Funktion zu (angelehnt an das [http://www.lazarusforum.de/viewtopic.php?p=39260#p39260 Beispiel] aus dem deutschen Lazarusforum):
 
* Fügen Sie im Quelltexteditor folgende Funktion zu (angelehnt an das [http://www.lazarusforum.de/viewtopic.php?p=39260#p39260 Beispiel] aus dem deutschen Lazarusforum):
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
// FindInMemo: gibt die Stelle zurück, wo der zu suchende String gefunden wurde
 
// FindInMemo: gibt die Stelle zurück, wo der zu suchende String gefunden wurde
 
function FindInMemo(AMemo: TMemo; AString: String; StartPos: Integer): Integer;
 
function FindInMemo(AMemo: TMemo; AString: String; StartPos: Integer): Integer;
Line 96: Line 119:
 
</syntaxhighlight>
 
</syntaxhighlight>
 
* Ergänzen Sie nun noch im Eventhandler ''OnClick'' von ''Button2'' folgenden Code:
 
* Ergänzen Sie nun noch im Eventhandler ''OnClick'' von ''Button2'' folgenden Code:
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
procedure TForm1.Button2Click(Sender: TObject);
 
procedure TForm1.Button2Click(Sender: TObject);
 
const
 
const
Line 128: Line 151:
 
* Caption von ''Button3'' ändern Sie zu ''Memo laden''.
 
* Caption von ''Button3'' ändern Sie zu ''Memo laden''.
 
* nun ändern Sie noch die Eventhandler ''OnClick'' der Buttons:  
 
* nun ändern Sie noch die Eventhandler ''OnClick'' der Buttons:  
<syntaxhighlight>
+
<syntaxhighlight lang=pascal>
 
procedure TForm1.Button2Click(Sender: TObject);
 
procedure TForm1.Button2Click(Sender: TObject);
 
begin
 
begin
Line 144: Line 167:
 
==Siehe auch==
 
==Siehe auch==
  
[[RichMemo|TRichMemo]] - Entspricht Delphi TRichEdit Komponente: formatierte Texte (farbig, Größe etc.)
+
[[RichMemo|TRichMemo]] - Entspricht Delphi TRichEdit Komponente: formatierte Texte (farbig, Größe etc.)<br>
 
[[TListBox/de|TListBox]] - Eine scrollbare Liste von Strings
 
[[TListBox/de|TListBox]] - Eine scrollbare Liste von Strings
  
Line 150: Line 173:
 
{{LCL Components/de Footer |TEdit/de|TToggleBox/de}}
 
{{LCL Components/de Footer |TEdit/de|TToggleBox/de}}
 
{{LCL Components/de}}
 
{{LCL Components/de}}
 
[[Category:LCL/de]]
 
[[Category:Components/de]]
 
--[[User:Michl|Michl]] 10:22, 19 May 2014 (CEST)
 

Latest revision as of 10:50, 1 March 2020

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.

Comp Standard TMemo.png

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'+LineEnding+'ist'+LineEnding+'ein'+LineEnding+'mehrzeiliger'+LineEnding+'Text'; .

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 und einem TMemo Memo1):

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

Sie können dem Memo den Inhalt auch 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

Wollen Sie wissen, was in einer bestimmten Zeile steht, können Sie 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;

Bestimmte Zeile(n) löschen

Sie können im Memo Zeilen mit einem bestimmten Inhalt direkt löschen:

procedure subZeileLoeschen(AMemo: TMemo; AString: String);
var intIndex: Integer;
begin

  intIndex := 0;

  while intIndex < AMemo.Lines.Count do
  begin
    // Enthält die aktuelle Zeile den gesuchten Text,
    // dann lösch die Zeile und erhöhe nicht den Index
    if (AnsiContainsStr(AMemo.Lines[intIndex], AString)) then
      AMemo.Lines.Delete(intIndex)
    else
      Inc(intIndex); // erhöhe den Index
  end;

end;

Textmarkierung

Sie können zur Laufzeit Textteile markieren, indem Sie die linke Maustaste gedrückt halten oder die [Shift]-Taste gedrückt halten und mit der Maus oder Tastatur den Text selektieren. Diesen Text (String) können Sie dann zum Beispiel so ausgeben:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(Memo1.SelText); 
end;

Text suchen

Entgegen dem vorherigen Beispiel können Sie auch einen Text (String) in einem TMemo suchen und sich die Stelle, wo sich der Text befindet mit Stelle:=Memo1.SelStart; zurückgeben lassen.

Folgendes kleines Beispiel zeigt, wie Sie einen Text in einem Memo suchen und weitersuchen können:

  • Erstellen Sie eine neue Anwendung, mit einem TEdit Edit1, einem TMemo Memo1 und zwei TButtons Button1 und Button2.
  • Ergänzen Sie die Uses-Klausel um die Units LCLProc und strutils.
  • Füllen Sie im Eventhandler OnClick von Button1 das Memo mit einem beliebigen Text, wie im Beispiel Zeilen direkt einfügen.
  • Fügen Sie im Quelltexteditor folgende Funktion zu (angelehnt an das Beispiel aus dem deutschen Lazarusforum):
// FindInMemo: gibt die Stelle zurück, wo der zu suchende String gefunden wurde
function FindInMemo(AMemo: TMemo; AString: String; StartPos: Integer): Integer;
begin
  Result := PosEx(AString, AMemo.Text, StartPos);
  if Result > 0 then
  begin
    AMemo.SelStart := UTF8Length(PChar(AMemo.Text), Result - 1);
    AMemo.SelLength := Length(AString);
    AMemo.SetFocus;
  end;
end;
  • Ergänzen Sie nun noch im Eventhandler OnClick von Button2 folgenden Code:
procedure TForm1.Button2Click(Sender: TObject);
const
  SuchStr: String = '';                     // Der zu suchende String
  SuchStart: Integer = 0;                   // Letzte Fundstelle des zu suchenden Strings
begin
  if SuchStr <> Edit1.Text then begin       // Falls sich der zu suchende String geändert hat
    SuchStart := 0;
    SuchStr := Edit1.Text;
  end;
  SuchStart := FindInMemo(Memo1, SuchStr, SuchStart + 1);

  if SuchStart > 0 then
    Caption := 'Bei Memo1.SelStart['+IntToStr(SuchStart)+'] gefunden!'
  else
    Caption := 'Keine weiteren Funde!';
end;
  • Nun können Sie zur Laufzeit mit Button1 das Memo mit einem Text füllen, den zu suchenden Text in Edit1 einfügen und mit Button2 diesen im Memo suchen bzw. weitersuchen.

Speichern und Laden

Sie können den Inhalt eines Memos recht einfach Speichern und Laden, indem Sie die Methoden SaveToFile und LoadFromFile der Klasse TStrings nutzen.

Folgendes Beispiel zeigt Ihnen wie:

  • Erstellen Sie eine neue Anwendung, mit einem TMemo Memo1 und drei TButtons Button1, Button2 und Button3.
  • Legen Sie zusätzlich noch ein TSaveDialog und einen TOpenDialog von der Komponentenpalette Dialogs auf dem Formular ab.
  • Caption von Button1 ändern Sie zu Memo füllen.
  • Im Eventhandler OnClick von Button1 befüllen Sie das Memo mit einem beliebigen Text, wie im Beispiel Zeilen direkt einfügen.
  • Caption von Button2 ändern Sie zu Memo speichern.
  • Caption von Button3 ändern Sie zu Memo laden.
  • nun ändern Sie noch die Eventhandler OnClick der Buttons:
procedure TForm1.Button2Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

Siehe auch

TRichMemo - Entspricht Delphi TRichEdit Komponente: formatierte Texte (farbig, Größe etc.)
TListBox - Eine scrollbare Liste von Strings



Gehe zurück zu: LCL Components  — Komponente zuvor: TEdit/de Nächste Komponente: TToggleBox/de
LCL Komponenten
Komponenten Tab Komponenten
Standard TMainMenu • TPopupMenu • TButton • TLabel • TEdit • TMemo • TToggleBox • TCheckBox • TRadioButton • TListBox • TComboBox • TScrollBar • TGroupBox • TRadioGroup • TCheckGroup • TPanel • TFrame • TActionList
Additional TBitBtn • TSpeedBtn • TStaticText • TImage • TShape • TBevel • TPaintBox • TNotebook • TLabeledEdit • TSplitter • TTrayIcon • TMaskEdit • TCheckListBox • TScrollBox • TApplicationProperties • TStringGrid • TDrawGrid • TPairSplitter • TColorBox • TColorListBox • TValueListEditor
Common Controls TTrackBar • TProgressBar • TTreeView • TListView • TStatusBar • TToolBar • TUpDown • TPageControl • TTabControl • THeaderControl • TImageList • TPopupNotifier
Dialogs TOpenDialog • TSaveDialog • TSelectDirectoryDialog • TColorDialog • TFontDialog • TFindDialog • TReplaceDialog • TOpenPictureDialog • TSavePictureDialog • TCalendarDialog • TCalculatorDialog • TPrinterSetupDialog • TPrintDialog • TPageSetupDialog
Data Controls TDBNavigator • TDBText • TDBEdit • TDBMemo • TDBImage • TDBListBox • TDBLookupListBox • TDBComboBox • TDBLookupComboBox • TDBCheckBox • TDBRadioGroup • TDBCalendar • TDBGroupBox • TDBGrid
System TTimer • TIdleTimer • TLazComponentQueue • THTMLHelpDatabase • THTMLBrowserHelpViewer • TAsyncProcess • TProcessUTF8 • TProcess • TSimpleIPCClient • TXMLConfig • TEventLog • TServiceManager
Misc TColorButton • TSpinEdit • TFloatSpinEdit • TArrow • TCalendar • TEditButton • TFileNameEdit • TDirectoryEdit • TDateEdit • TCalcEdit • TFileListBox • TFilterComboBox • TXMLPropStorage • TINIPropStorage • TBarChart • TButtonPanel • TShellTreeView • TShellListView • TIDEDialogLayoutStorage
Data Access TDatasource • TBufDataset • TMemDataset • TSdfDataset • TFixedFormatDataSet • TDbf
SynEdit TSynEdit • TSynMemo • TSynCompletion • TSynAutoComplete • TSynMacroRecorder • TSynExporterHTML • TsynPluginSyncroEdit • TSynPasSyn • TSynFreePascalSyn • TSynCppSyn • TSynJavaSyn • TSynPerlSyn • TSynHTMLSyn • TSynXMLSyn • TSynLFMSyn • TSynDiffSyn • TSynUNIXShellScriptSyn • TSynCssSyn • TSynPHPSyn • TSynTeXSyn • TSynSQLSyn • TSynPythonSyn • TSynVBSyn • TSynAnySyn • TSynMultiSyn • TSynBatSyn • TSynIniSyn • TSynPoSyn
LazControls TDividerBevel • TExtendedNotebook • TListFilterEdit • TTreeFilterEdit
RTTI TTIEdit • TTIComboBox • TTIButton • TTICheckBox • TTILabel • TTIGroupBox • TTIRadioGroup • TTICheckGroup • TTICheckListBox • TTIListBox • TTIMemo • TTICalendar • TTIImage • TTIFloatSpinEdit • TTISpinEdit • TTITrackBar • TTIProgressBar • TTIMaskEdit • TTIColorButton • TMultiPropertyLink • TTIPropertyGrid • TTIGrid
IPro TIpFileDataProvider • TIpHtmlPanel
Chart TChart • TListChartSource TRandomChartSource • TUserDefinedChartSource • TCalculatedChartSource • TDbChartSource • TChartToolset • TChartAxisTransformations • TChartStyles • TChartLegendPanel • TChartNavScrollBar • TChartNavPanel • TIntervalChartSource • TDateTimeIntervalChartSource • TChartListBox • TChartExtentLink • TChartImageList
SQLdb TSQLQuery • TSQLTransaction • TSQLScript • TSQLConnector • TMSSQLConnection • TSybaseConnection •TPQConnection • TPQTEventMonitor • TOracleConnection • TODBCConnection • TMySQL40Connection • TMySQL41Connection • TMySQL50Connection • TMySQL51Connection • TMySQL55Connection • TMySQL56Connection • TSQLite3Connection • TIBConnection • TFBAdmin • TFBEventMonitor • TSQLDBLibraryLoader