Hvis tegn nr 2 er lig med komma

if Edit1.Text[1] = ',' then
begin
  //kode
end;

Jeps. Læg lige et svar

Svar... :o)

Det er nok bedre med følgende for du får en fejl hvis Edit1.Text er en tom streng:

  if pos(DecimalSeparator,Edit1.Text) = 2 then begin
  end;

DecimalSeparator skifter afhængig af hvordan Windows er sat op og pos er ligeglad med længden af strengen i Edit1.Text -> fejlsikker kode.

hrc>> Jeg er fuldstendig enig, men folk der skriver med hængende begin burde tvinges til at programmere Vc++ i 15 år !!!!!

Jens B

borrisholt -> Hvad mener du med hængende begin?? At jeg skifter linie efter then??

Hængende begin :

if pos(DecimalSeparator,Edit1.Text) = 2 then begin
  end;

Begin på ny linje :
if pos(DecimalSeparator,Edit1.Text) = 2 then
begin
end;

Okay..

hrc -> Hvis du vil have pointene, kan jeg godt lave et spm til dig... Din metode er vist lidt mere effektiv en min.

hejhej>> Han skal ingen points have før har har trådt offenligt fre og sagt undskyld for sine hængende begins !!!! ;)

Jens B

Jeg fornemmer at den gode hr. Borrisholt har læst et svar andetsteds på Eksperten - og som jeg sagde, så var det et spørgsmål om religion - og den Jens er vist ligeså rabiat modstander af hængende begin's som jeg er tilhænger af dem.

Der er flere løsninger på problemet: Enten optrapper vi og begynder at sende Pascal-kode med hhv. hængende og ikke hængende begins til hinanden. Bliver fejden rigtig ubehagelig kan den optrappes til at udveksle Visual Basic kode, kulminerende med ... hvad kan jeg finde på ... VBA-kodeeksempler - ikke virus eller sådan, kodesyntaksen må være galt nok. Det kan blive en grum omgang.

Alternativet er, at jeg kryber til korset og erkender min skyld, min store brøde - DETTE TIL TRODS AF, AT JEG HAR SET ET KODEEKSEMPLER AF NIKLAUS WIRTH HVOR DER BRUGES HÆNGENDE BEGIN - Det vil være en sur en at acceptere, men hvad gør man ikke for husfreden på Eksperten. Derfor:

Undskyld, undskyld, undskyld gode herre. Det va' itte' min mjening at forbrøde mig på eders velbefindende. Om I blot rækker mig pisken og skal jeg afstraffe mig selv til jeg knapt kan kravle på mine gigtplagede knæ igen... (Frit efter filmen Grev Axel).

Var det godt nok?

Til hejhej: Næ, det er ej nødvendigt.

I øvrigt står jeg til at skulle programmere i VB .NET og selvom jeg har hørt at det er blevet objektorienteret (ca. 8 år efter MC påstod at det var tilfældet), så er det ikke ligefrem lykken.