[Delphi] problem z wywołanie funkcji :-(

0

Witam,

Mam problem z wykonywaniem poleceń w Delphim :-( mam taki kod:

var
i : integer;
s : string;
d : string;
pn : string;
begin
for i:=0 to poletxt.Lines.count -1 do
s := poletxt.lines[i];
d := poletxt.lines[1];
pn := poletxt.Lines[2];
if d = 'Pasek://Visible' then paseknarzedzi.Visible:=true;
{ to jeszcze nie koniec kodu <ort>wyciolem </ort>tylko fragment}

Dlaczego jeśli w memo linijce 1 memo znajduje się napis: 'Pasek://Visible
To i tak ta funkcja sie nie wywoluje :-(

Pomocy !

dzięki

0

Linijki Memo licza sie od 0

0

wszystko co ma się wykonać po do musi być pomiędzy
begin ..... end inaczej powtarza się w pętli tylko pierwsza linia.

0

Witam,

Wiem ale jesli wtym miejscu tam gdzie wskazałem znajduje się ten text to mi się nie wywołuje funkcja :(
Może źle przekopiowałem Kod kopiuje jeszcze raz:
var
i : integer;
s : string;
d : string;
pn : string;
begin
for i:=0 to poletxt.Lines.count -1 do
s := poletxt.lines[i];
d := poletxt.lines[1];
pn := poletxt.Lines[2];
if d = 'Pasek://Visible' then paseknarzedzi.Visible:=true;
Dzięki za pomoc

0

Nie kapuje jak to między begin a end
Jeśli możesz to mógłbyś mi to pokazać ?

0

var
i : integer;
begin

for i := 0 to 3 do
         showmessage('aaaaaa');
         showmessage('bbbbbb');
end;

w wyniku da :
aaaaaa
aaaaaa
aaaaaa
bbbbbb

, a :


var
i : integer;
begin

for i := 0 to 3 do
      begin // <------------------------
         showmessage('aaaaaa');
         showmessage('bbbbbb');
      end; // <-------------------------
end;

da :
aaaaaa
bbbbbb
aaaaaa
bbbbbb
aaaaaa
bbbbbb

Poza tym nie rozumiem tego twojego kodu (jest trochę bez sensu) :)

0
var
  i :integer;
  s, d, pn :string;
begin
  for i:=0 to poletxt.Lines.count -1 do begin
    s := poletxt.lines[i];
    d := poletxt.lines[1];
    pn := poletxt.lines[2];
    if d = 'Visible' then
      ...
  end;
 

Ale trzeba przyznac, ze w FAQ tego nie ma :d

1 użytkowników online, w tym zalogowanych: 0, gości: 1