realBASIC fråga :)

Tråden skapades och har fått 2 svar. Det senaste inlägget skrevs .
1
  • Medlem
  • Huddinge
  • 2002-09-15 18:29

Hej!

Hur får man realbasic att kolla på linje 1 i EditField1 och se om det står t ex. hej där?

jag vill ha det såhär (som det skulle se ut i Delphi):

if EditField1.Lines[1] = ´hej´ then begin
//min kod linje 1
//min kod linje 2
end;

Tack,
Björne

Citat:

quote:Skapades ursprungligen av: Björne:
Hur får man realbasic att kolla på linje 1 i EditField1 och se om det står t ex. hej där?

jag vill ha det såhär (som det skulle se ut i Delphi):

if EditField1.Lines[1] = ´hej´ then begin
//min kod linje 1
//min kod linje 2
end;

Din fråga är lite luddigt ställd. Menar du att du vill kolla om texten BÖRJAR med "hej", eller menar du att raden enbart ska innehålla "hej" och en radmatning? Rad 1 är ju inte helt relevant i de frågorna. Men ett sätt att svara på din fråga är detta:

Citat:

code:<pre style="font-size:x-small; font-family: monospace;">if left(editField.text,3) = "hej" then
msgbox "BINGO!"
end</pre>

ett annat är detta:

Citat:

code:<pre style="font-size:x-small; font-family: monospace;">if left(editField.text,4) = ("hej"+chr(13)) then
msgbox "BINGO!"
end</pre>

ett exempel som faktiskt tar med radens nummer:

Citat:

code:<pre style="font-size:x-small; font-family: monospace;">dim a as string
dim rad as integer

rad = 1

a = nthfield(editField.text,chr(13),rad)

if left(a,3) = "hej" then
msgbox "BINGO!"
end</pre>

Svarade detta på frågan?

  • Medlem
  • Huddinge
  • 2002-09-16 21:22

tack, det var:

Citat:

code:<pre style="font-size:x-small; font-family: monospace;">dim a as stringdim rad as integerrad = 1a = nthfield(editField.text,chr(13),rad)if left(a,3) = "hej" then msgbox "BINGO!"end </pre>

jag var ute efter

1
Bevaka tråden