|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Editfeld 3. Stelle auslesen
13. Feb 2011, 11:57
if length(Edit1.Text) > 2 then Edit2.Text := Copy(Edit1.text,3,1);
oder
if length(Edit1.Text) > 2 then Edit2.Text := Edit1.text[3];
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|