Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#6

AW: Memofeld in Ord Werte übertragen

  Alt 28. Dez 2012, 21:24
Anhand von Beispielen?

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
Var
 i:Integer;
begin
  // Memo ist das Control in dem der Text dargestellt wird
  // Lines "sind die einzelnen Zeilen"
  for I := 0 to Memo1.Lines.Count - 1 do
      ShowMessage(Memo1.Lines[i]);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   // Memo1.Lines.Text ist der genze Inhalt des Memos
   ShowMessage(Memo1.Lines.Text)
end;

procedure TForm1.Button4Click(Sender: TObject);
Const
 s:String='Nase';
var
 i:Integer;
begin
  for I := 1 to Length(s) do
     Showmessage(s[i]);
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat