1. Акция на весь декабрь! Получай оплату х2 за уникальные статьи, объемом от 200 слов, если в заголовке темы и теле статьи присутствует слово Python
    Скрыть объявление

Ошибка.

Тема в разделе "Delphi - FAQ", создана пользователем Bembi, 22 фев 2011.

  1. Bembi

    Bembi Гость

    Мне нужно определить общие символы двух строк, но програма выдает ошибку
    [Error] Unit1.pas(237): Undeclared identifier: 'Spsimv'

    почему? помогите пожалуйста
    вот текст:
    Код (Delphi):
    procedure TForm1.Button2Click(Sender: TObject);// вивод общих
    //символов 2-ух строк
    var
    a,b,s12:string;

    begin
    //ввод значений в строки
    a:=edit1.text;
    b:=edit2.text;
    //оределение общих символов
    Spsimv(a,b,s12);
    memo1.Text:=s12;
    end;

    procedure Spsimv(a,b:string; var s:string);// определение общих символов

    var i,dlina,po,ps:integer;
    begin
    s:='';
    dlina:=length(a);
    for i:=1 to dlina do
    begin
    ps:=pos(a[i],B);
    if ps<>0 then
    begin po:=pos(a[i],s);
    if po=0 then s:= s+a[i];
    end;
    end;
    end;
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    перенести procedure Spsimv выше procedure TForm1.Button2Click(Sender: TObject);
     
  3. ierofant

    ierofant Гость

    И ещё вздохни глубже, успокойся, зачем столько постов-то?
     
Загрузка...

Поделиться этой страницей