1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

Ошибка.

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

  1. Bembi

    Bembi Гость

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

    почему? помогите пожалуйста
    вот текст:
    Код:
    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 *

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

    ierofant Гость

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

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