Flag

[Vitalya_1993]

что означает Flag в программе в делфи?

[whatever]

Если не ошибаюсь, такой стандартной функции или процедуры нет. Код в студию.

[Vitalya_1993]

var n, i, g: integer;
b,s1:string;
flag:boolean;
begin
s1:=edit1.text;
flag:=false;
i:=memo1.Lines.Count;
for g:=1 to i do
begin
if s1=memo1.Lines[g-1] then
begin
flag:=true;
label3.caption:=inttostr(g);
end;
end;
if flag=false then showmessage('такой строки нет');
end;
procedure TForm1.Button2Click(Sender: TObject);
var n, i, g: integer;
b,s1:string;
flag:boolean;
begin
s1:=edit1.text;
flag:=false;
i:=memo1.Lines.Count;
for g:=1 to i do
begin
if s1=memo1.Lines[g-1] then
begin
flag:=true;
b:=memo1.lines[0];
memo1.lines[0]:=memo1.lines[g-1];
memo1.lines[g-1]:=b;
end;
end;
end;

end.

[Lyt]

flag - это переменная логического типа , которая может принимать значения 0(false,ложь) либо 1(true,верно)

[Vitalya_1993]

За что она отвечает??для чего???

[Lyt]

ну... в процессе выполнения программы ей присваивается какое-то значение из этих 2х. и далее исходя из этого значения выполняется то или иное действие
вот же у тебя в коде:

if flag=false then showmessage('такой строки нет');

[Vitalya_1993]

ясно,спасибо!!