Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - suchen und makieren von text im memofeld?
hibbert - Mo 15.07.02 18:52
Titel: suchen und makieren von text im memofeld?
hallo,
ich hab mal ne kleene frage:
ich möchte gerne ein memofeld nacheiner bestimmten zahl suchen,und diese makiert haben. diezu suchende zahl soll vorher in ein edit feld eingegeben werden.
kann mir jemand helfen??
jetzt schonmal vielen Dank !
mfg hibbert
Link entfernt. Tino
DBR - Mo 15.07.02 20:10
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var dummy:double;
p:integer;
begin
if key=#13 then begin
key:=#0;
try
dummy:=strtofloat(edit1.text);
except
showmessage('Edit1 enthält keine gültige Zahl');
exit;
end;
p:=pos(edit1.text,memo1.text);
if p=0 then begin
showmessage('Nichts gefunden');
exit;
end;
memo1.selstart:=p-1;
memo1.sellength:=length(edit1.text);
memo1.setfocus;
end;
end; |
gruss DBR
hibbert - Mo 15.07.02 20:18
Titel: danke
danke für den quellcode!
aber in der ertsen zeile des quellcodes zeigt mird elphi ein fehler an. woran liegt das ?
mfg philipp
CenBells - Mo 15.07.02 21:13
Was für einen Fehler zeigt Dir der Compiler denn an?
DBR - Mo 15.07.02 23:03
Bist du sicher, dass du den Code in "KeyPress" eingesetzt hast?
Tino - Mo 15.07.02 23:53
Hast Du das KeyPress auch in der Private-Sektion des Forms definiert? Also so:
Quelltext
1:
2:
| private
procedure Edit1KeyPress(Sender: TObject; var Key: Char); |
Gruß
hibbert - Di 23.07.02 21:12
Es funzt !
DANKE! :D
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!