Переменная[Delphi]

Помогите как удалить из переменной не нужный символы?

 

ЩИТО?

из строки, или из идентификатора?


если все же из строки, то вот расово верная функция:
http://www.delphibasics.ru/StringReplace.php

 

А какой использовать тип переменной для добавления в переменную и строки и спец символы и цифры?И как удалить от туда нужный мне текст?

 

используй все, очень хорошо, когда много массивов, размерностью примерно 2000 элементов, типа String или даже Int64 ( как сейчас модно)
И все будет отлично!
Запомни, чем больше массивов-тем лучше. Можно даже многомерных!

 

Все что ты перечислил относится к строковым/символьным типам данных.

По ссылке сходи, там есть и примеры. Чтобы удалить достаточно заменить удаляемую подстроку на '', мог бы и сам догадаться.

 

вариант 1
удаляем один символ "simvol" из строки "stroka"

PHP:

while(stroka.Pos(simvol))
    stroka.Delete(stroka.Pos(simvol), 1);


вариант 2
удаляем все символы, содержащиеся в строке "stroka_simvolov" из строки "stroka"

PHP:

for(int i = 1; i <= stroka_simvolov.Length(); ++i)
    while(stroka.Pos(stroka_simvolov[i]))
        stroka.Delete(stroka.Pos(stroka_simvolov[i]), 1);


p.s.: кому не лень, переведите с билдера на делфи, чтобы ТС понял

 

Да мне бы код на Делфи

 

а мне бы SL65 битурбированный.

 

блин поможет кто нить?

 

Code:

procedure DelSubStr(var stroka:string; podstroka:string);
var p:integer;
begin
repeat
p:=pos(podstroka, stroka);
if p>0 then
delete(stroka, p, length(podstroka));
until p=0;
end;

пример использования:

Code:

-----------------------
var s:string;
begin
s:='I am a noob, because I can not to write this simple code myself';
DelSubStr(s, 'I am a noob, because');
writeln(s);
end;
-----------------------

п.с. код писал с телефона потому если будут ошибки прошу не пинать

 

перевел свои примеры на делфи

PHP:

while Pos(simvol, stroka) > 0 do 
    Delete(stroka, Pos(simvol, stroka), 1);

PHP:

for i := 1 to Length(stroka_simvolov) do
    while Pos(stroka_simvolov[i], stroka) > 0 do 
        Delete(stroka, Pos(stroka_simvolov[i], stroka), 1); 

 

или-же когда не надо париться http://www.delphibasics.co.uk/RTL.asp?Name=StringReplace

 

верно, но StringReplace вроде в модуле StrUtils, а тащить с собой вес этого модуля для решения такой задачи - бред. ИМХО

 

Еще варианты

PHP:

for i := 1 to Length(stroka) do
    if stroka[i] = simvol do
        Delete(stroka, i, 1); 

PHP:

for i := 1 to Length(stroka) do
    if Pos(stroka[i], stroka_simvol) > 0 do
        Delete(stroka, i, 1);

 

[offtop]какой же все-таки неудобный синтаксис у паскаля =)[/offtop]

 

я объебался или там справа сверху написано SysUtils?

Да если и StrUtils -> правая кнопка, редактировать, скопировал код нужной функции и все

M_script, поддерживаю

 

Да я все разобрался Patcher помог

 

по ссылке не переходил, мог и ошибится...

ну вот как бы ты обьяснял это для ТС, если предположить, что функция еще и зависима от констант, методов и других функций модуля?))

 

значит это такая функция, которую так просто не напишешь, следовательно без модуля ее не потаскаешь, и никакого профита не будет

 

Очень даже удобный.