for i:=0 to Lines.Count-1 do
begin
if form2.edit1.text = Lines[i] then Form2.Zapis;
end;
poradna.net
Neregistrovaný Přihlásit Registrovat
poradna.net
Řetězce v Delphi for i:=0 to Lines.Count-1 do
begin
if form2.edit1.text = Lines[i] then Form2.Zapis;
end;