Reakce na odpověď

Neregistrovaný Přihlásit Registrovat

Presne tak.

for i:=0 to Lines.Count-1 do
begin
  if form2.edit1.text = Copy(Lines[i], 1, Pos(' ', Lines[i])-1) then 
    Form2.Zapis;
end;

Řetězce v Delphi