Toon posts:

[Delphi] Edit's

Pagina: 1
Acties:

Verwijderd

Topicstarter
hoe kan ik een alert geven als er een edit niet is ingevuld.

1) hoe controleer ik dat edit1.text := ''; werkt niet
2) hoe formuleer ik dat

Verwijderd

zoiets?
code:
1
2
3
4
5
6
if Edit1.Text = '' then
begin

  { statement }

end;

  • Marv
  • Registratie: Oktober 2000
  • Laatst online: 11-06 06:52
code:
1
2
if trim(edit1.text)='' then
showmessage('Wel iets invullen he mannetje');

(zoek zelf maar op wat trim doet :P)

"Everything I've ever done or said is the complete opposite of what I've wanted" -- George


Verwijderd

Topicstarter
he marv bedankt alleen moet er geen ; na je statemant van het alertje. bedankt

  • Marv
  • Registratie: Oktober 2000
  • Laatst online: 11-06 06:52
Op zondag 06 januari 2002 16:32 schreef jurian het volgende:
he marv bedankt alleen moet er geen ; na je statemant van het alertje. bedankt
geen ; als je "else" wilt gebruiken... wel als je andere dingen wilt gaan doen... suc6 verder ;)

"Everything I've ever done or said is the complete opposite of what I've wanted" -- George


  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

ALT+255 werkt wel, oftewel: wordt niet door Trim ge-trim-t. :)

"The shell stopped unexpectedly and Explorer.exe was restarted."


Verwijderd

Topicstarter
wie weet trouwens hoe 'is not' doet

  • Marv
  • Registratie: Oktober 2000
  • Laatst online: 11-06 06:52
Op zondag 06 januari 2002 16:41 schreef jelmervos het volgende:
ALT+255 werkt wel, oftewel: wordt niet door Trim ge-trim-t. :)
Erm...
code:
1
2
3
4
if (trim(edit1.text)='') or (edit1.text='ALT+255') then
  showmessage ('Grapjas :P')
else
  go go gooooooooo

:+

"Everything I've ever done or said is the complete opposite of what I've wanted" -- George


  • Marv
  • Registratie: Oktober 2000
  • Laatst online: 11-06 06:52
Op zondag 06 januari 2002 16:46 schreef jurian het volgende:
wie weet trouwens hoe 'is not' doet
ikke

edit: volgens mij kun je beter eerst wat basics leren...

Maar "is not" kun je zo gebruiken
code:
1
2
3
4
5
if (edit1.text<>'A') do
begin
   showmessage('Je moet A invullen om verder te kunnen');
   exit;
end;


code:
1
<> = is not

"Everything I've ever done or said is the complete opposite of what I've wanted" -- George


Verwijderd

Topicstarter
die basics leer ik op de GoT maar dat is toch niet erg ik gebruik de help geregeld maar daar kan je het vaak niet goed vinden. maar hoe zorg ik ervoor dat ie kan controleren of het een valid e-mail adres is (een @ en een . erin)

  • Marv
  • Registratie: Oktober 2000
  • Laatst online: 11-06 06:52
Op zondag 06 januari 2002 16:52 schreef jurian het volgende:
die basics leer ik op de GoT maar dat is toch niet erg ik gebruik de help geregeld maar daar kan je het vaak niet goed vinden. maar hoe zorg ik ervoor dat ie kan controleren of het een valid e-mail adres is (een @ en een . erin)
Ze proberen het niveau hier hoog te houden dus eigenlijk denk ik dat je het beste eerst wat tutorials kunt gaan doen... of een boekje huren bij de bibliotheek.

Voor je email probleempje:
Een string is gewoon een array (zoek maar op :P) dus ik denk dat je het beste iets kan maken dat door de string heen loopt en dan checkt of er een @ in zit... en minstens 1 punt (niet echt veilig zo maar wel simpel)

"Everything I've ever done or said is the complete opposite of what I've wanted" -- George


Verwijderd

Gebruik de functie Pos en koop of leen een boek |:(

  • jopiek
  • Registratie: September 2000
  • Laatst online: 21-08 19:56

jopiek

Tja... 'ns ff denken.

Op zondag 06 januari 2002 16:52 schreef jurian het volgende:
die basics leer ik op de GoT maar dat is toch niet erg ik gebruik de help geregeld maar daar kan je het vaak niet goed vinden. maar hoe zorg ik ervoor dat ie kan controleren of het een valid e-mail adres is (een @ en een . erin)
simpel, daar heb je de pos functie voor

function isValidEmail(email : string) : boolean;
var valid : boolean;
begin
if (pos('.', email) > 0) and (pos('@', email) > 0) then
valid := true {hier idd geen ;}
else
valid := false;
result := valid;
end;

kan uiteraard ook zo:

function isValidEmail(email : string) : boolean;
begin
result := (pos('.', email) > 0) and
(pos('@', email) > 0);
end;


[klaagmode]Jopiek vind het irritant dat GoT m'n inspringen niet toont... dit ziet er bagger uit zodra gepost :'([/klaagmode]

Cogito Ergo Credo


  • Marv
  • Registratie: Oktober 2000
  • Laatst online: 11-06 06:52
Op zondag 06 januari 2002 17:02 schreef jopiek het volgende:
<knip>
Dan moet je
code:
1
 [ code] en [/ code] gebruiken

uiteraard zonder spatie :P

"Everything I've ever done or said is the complete opposite of what I've wanted" -- George


  • jopiek
  • Registratie: September 2000
  • Laatst online: 21-08 19:56

jopiek

Tja... 'ns ff denken.

Jopiek stelt voor dat jurian eens op de Delphi Super Page, en Torry's Delphi pages gaat kijken. De Efg's library zou ook wel nuttig zijn...

Daarnaaast www.comcol.nl voor een paar goede Delphi boeken van Cantu en consorten...

Cogito Ergo Credo


  • jopiek
  • Registratie: September 2000
  • Laatst online: 21-08 19:56

jopiek

Tja... 'ns ff denken.

Op zondag 06 januari 2002 17:05 schreef Marv het volgende:

[..]

Dan moet je
code:
1
 [ code] en [/ code] gebruiken

uiteraard zonder spatie :P
ik zag na mijn 'klaagpost' al dat een ander het wel voor elkaar kreeg en wilde net de fag op gan zoeken, maar iig bedankt, zal ik in het vervolg doen!

Cogito Ergo Credo


Verwijderd

Kewl weer een noob topic.. als je je edit veld wilt bekijken moet je eerst met loadlibrary de dll 'lookupedit.dll' laden die staat als het goed is in je windows dir of in de system map.. Dan pas kun je met getprocaddress de procedure uit de handler laden en kijken of je veld leeg is of niet >:)

  • whoami
  • Registratie: December 2000
  • Nu online
Op zondag 06 januari 2002 16:19 schreef jurian het volgende:
hoe kan ik een alert geven als er een edit niet is ingevuld.

1) hoe controleer ik dat edit1.text := ''; werkt niet
2) hoe formuleer ik dat
Tuurlijk werkt dat niet. ':=' is de assignment operator.

Doe het eens zo:
code:
1
2
if edit1.Text = '' then begin
end;

https://fgheysels.github.io/

Pagina: 1