Огромное спасибо! Функция add стала работать, но при компиляции выделяет красным эту строку:
function TForm1.delete(host:string):string;
и пишет ошибку
[DCC Error] Unit1.pas(60): E2037 Declaration of 'delete' differs from previous declaration
Обе функции объявлены в type, но работает только одна:
type
....
procedure ListBox1Click(Sender: TObject);
procedure ListBox2Click(Sender: TObject);
function Add(lineadd: string): string;
function delete(lineadd: string): string;
В чем на этот раз проблема?
|