delete(var S:String; Index: Integer; Count: Integer);

← →
Peroon (2002-11-27 01:55) [0]

delete(var S:String; Index: Integer; Count: Integer);
Чего-то у меня не работает эта процедура.
Ошибки не возникает, но ничего и не удаляет.

← →
Сильно (2002-11-27 04:49) [1]

сказано! Достойно книги рекордов Гиннеса! Жаль только невинно обвиненного древнеславянского бога. Он все-таки, не был столь туп!

← →
SottNick © (2002-11-27 06:45) [2]

Можно говорить?
Ага.
Сейчас.
Значит так...

У всех работает, у вас не работает...
А драйвер процессора для поддержки работы со строковыми переменными у вас установлен?
Надо уже научиться отличать процедуру от функции.
var s,s1:string;
begin
s:="Наехали гости на бал";
s1:="Наехали гости на бал";
delete(s1,4,14);
showmessage(s+#13+s1);
end;

← →
For (2002-11-27 08:58) [3]

Скорей всего ты просто пишишь
S:="Проба";
delete(s,2,4);
Если так написать то S как была словом проба так им и останется
а чтобы от S осталась только буква П надо еще добавить после
delete(s,2,4); оператор присвоения, т.е.
S:=S;
Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
S:String;
begin
S:=Edit1.Text;
Delete(S,2,4);
Edit1.Text:=S;
end;

← →
MBo © (2002-11-27 09:03) [4]

>а чтобы от S осталась только буква П надо еще добавить после
>delete(s,2,4); оператор присвоения, т.е.
>S:=S;

Супер!!!!

← →
SottNick © (2002-11-27 09:09) [5]

2 For
ты бы читал, чего пишешь...

← →
Chubais © (2002-11-27 09:16) [6]

гыыы
s:=s
гыгыгы

← →
For (2002-11-27 09:16) [7]

procedure TForm1.Button1Click(Sender: TObject);
var
S:String;
begin
S:=Edit1.Text;
Delete(S,2,4);
Edit1.Text:=S;
end;

Что здесь написано неправильно?????????????????

← →
Chubais © (2002-11-27 09:19) [8]

2 For
здесь все правильно, тока S не нужна )))
но s:=s - крута!
хинт: используй еще if true=true then a:=true
гыыы

← →
MBo © (2002-11-27 09:24) [9]

>For
в этом примере все правильно (если не обращать внимание на обработку ошибок), и что бы там ни говорил рыжий олигарх, S нужна.

← →
Chubais © (2002-11-27 09:26) [10]

2 MBo
гыыы
а чо ты не объяснил ему что if true=true then a:=true
писать неправильно?

← →
Smithson © (2002-11-27 09:27) [11]

Хотя к поднятой теме отношение имеет только строчка delete(s,2,4);
© "Наехали гости на бал"

← →
For (2002-11-27 09:28) [12]

Chubais Я написал так чтобы человек понял, на словах это выглядит так :удалить та ты их удалил а вот атобразить не отобразил, поэтому не надо злорадствовать я старылся объяснить как можно проще, а написал S:=s чтобы не писать всю эту бодягу что пишу сейчас. А чтобы человек не запутался привел пример
так что всем првет)))))))))))

← →
Chubais © (2002-11-27 09:29) [13]

2 MBo
чесна-не понял, о какой обработке ошибок речь

← →
For (2002-11-27 09:36) [14]

MBo прав обработка ошибок нужна я делаю так:
If S<>"" Then ............

← →
MBo © (2002-11-27 09:39) [15]

> какой обработке ошибок
если длина строки меньше, чем указано в delete, оно все равно отработает без исключения, но результат может быть не таким, как ожидалось

← →
Chubais © (2002-11-27 09:53) [16]

2 MBo
несоответствие результата действия тому, что ожидалось от этого действия - <big>не есть ошибка</big>
гыы

2 support
блин чо-то я надеялся что <big> будет работать)))

2 MBo неужели это-ошибка?

Я так думаю, что проблема скорее всего в том, что в качестве строки ты передаешь пропертю, в которую собственно процедура положить ничего не может. Если сделаешь как предлагал For, то все получится

Хотя S:=S - это круто :)

← →
Peroon (2002-11-27 18:19) [20]

Развели демагогию! А дельного мало!
Вот вырезка из моего кода:

ItemText := ListBox3.Items[i]; Delete(ItemText, 0, 4); ListBox3.Items[i] := ItemText;

Это не работает.

в строках нулевого символа нет

← →
Peroon (2002-11-27 18:40) [22]

:) Вот! То что нужно! Теперь все работает.
Спасибо MBo!

> Peroon (27.11.02 18:40)

Если бы эти три строки Вы привели сразу, то сразу бы и ответ получили. Без всякой демагогии.

А так... согласитесь - вопрос "почему не работает стандартная процедура", не сопровожденный ни единой строчкой кода, может вызвать только смех.

Что и произошло.

delete(var S:String; Index: Integer; Count: Integer); Найти похожие ветки