Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Memofeld in Ord Werte übertragen
28. Dez 2012, 22: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)
|