Необходимо исправить ошибки

@hiphone · Регистрация: 28.01.2012

Студворк — интернет-сервис помощи студентам

Delphi
1
2
3
4
5
6
7
8
9
10
11
var a:integer;
rege:tregexpr;
s,p,d:string;
begin
Edit1.Text:=Memo2.Lines[1];
p:=Edit1.Text;
Delete(p,1,4);
d:=Pos('</td>',p);
p:=Delete(p,d,5);
Edit1.Text:=p;
end;

Ошибки в 8 и 9 строчках

Заранее спасибо

@Arcor · 27.02.2012, 16:28

в 8 строчке d является строковой переменной, функция Pos возвращает позицию, значит это числовое значение должно быть
9 строчка Delete, не функция а процедура, первым параметром задается строка из которой нужно удалить, вторым параметром с какой позиции, и 3 параметр задает сколько символов, результат возвращается снова в исходную строку, уже с удаленными символами, исправь сам программу как в строчке 7 написано, тогда сам поймешь быстрее почему

@hiphone · 27.02.2012, 16:34 **[ТС]**

так если бы я знал как, то не создавал бы тему.

очень прошу помочь

@Puporev · 27.02.2012, 16:42

Delphi
1
2
3
4
5
6
7
var p:string;
begin
p:=Memo2.Lines[1];
Delete(p,1,4);
Delete(p,Pos('</td>',p),5);
Edit1.Text:=p;
end;

@Arcor · 27.02.2012, 16:43

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
var a:integer;
rege:tregexpr;
s,p:string;
d: Integer; << -- вот исправил
begin
Edit1.Text:=Memo2.Lines[1];
p:=Edit1.Text;
Delete(p,1,4);
d:=Pos('</td>',p);
Delete(p,d,5); << -- вот исправил
Edit1.Text:=p;
end;

@hiphone · 27.02.2012, 17:00 **[ТС]**

Спасибо большое, понял ошибку

@Puporev · 27.02.2012, 17:03

Pascal
1
2
Edit1.Text:=Memo2.Lines[1];
p:=Edit1.Text;

Это маразм

@hiphone · 27.02.2012, 18:07 **[ТС]**

Ну вот так вот. В мемо исходный код сайта, а в едит я добавляю данные оттуда

@Puporev · 27.02.2012, 18:30

Сообщение от hiphone

а в едит я добавляю данные оттуда

Если добавлять, то так.

Delphi
1
Edit1.Text:=Edit1.Text+Memo2.Lines[1];

@hiphone · 27.02.2012, 18:39 **[ТС]**

зачем? едит пустой

@Puporev · 27.02.2012, 18:43

Тогда зачем в него переписывать строку из Мемо? Можно же сразу в переменную р.
И не нужно писать

Сообщение от hiphone

а в едит я добавляю

Нифига ты не добавляешь.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Arcor 5709 / 2300 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	27.02.2012, 16:28
	в 8 строчке d является строковой переменной, функция Pos возвращает позицию, значит это числовое значение должно быть 9 строчка Delete, не функция а процедура, первым параметром задается строка из которой нужно удалить, вторым параметром с какой позиции, и 3 параметр задает сколько символов, результат возвращается снова в исходную строку, уже с удаленными символами, исправь сам программу как в строчке 7 написано, тогда сам поймешь быстрее почему 0

@hiphone 13 / 13 / 7 Регистрация: 28.01.2012 Сообщений: 549
	27.02.2012, 16:34 [ТС]
	так если бы я знал как, то не создавал бы тему. очень прошу помочь 0

@hiphone 13 / 13 / 7 Регистрация: 28.01.2012 Сообщений: 549
	27.02.2012, 17:00 [ТС]
	Спасибо большое, понял ошибку 0

@hiphone 13 / 13 / 7 Регистрация: 28.01.2012 Сообщений: 549
	27.02.2012, 18:07 [ТС]
	Ну вот так вот. В мемо исходный код сайта, а в едит я добавляю данные оттуда 0

@hiphone 13 / 13 / 7 Регистрация: 28.01.2012 Сообщений: 549
	27.02.2012, 18:39 [ТС]
	зачем? едит пустой 0