обработка текстовых данных Delphi

[Яська]

Из строки удалить среднюю букву, если длина строки нечетная, иначе - удалить две средние буквы.

Вот то,что получилось у меня.И,к сожалению,не работает.Подскажите,где ошибка.


var str: string;
n:integer;
t:integer;
begin
str:=Memo1.Text;
n:=length(str);
t:=(n div 2); // номер элемента,с которого будем удалять
If (n mod 2)=0 then // проверка на чётность
delete(str,t,2) else delete (str,t,1);

end;

[unbanned]

Сообщение от Яська

var
....
t:integer;
begin
.....
t:=(n div 2); // номер элемента,с которого будем удалять
.....
end;

ну допустим строка из 3х символов... 3 div 2 = 1... ну а надо то удалять со второго)))

предлагаю так

var str: string;
n:integer;
t:integer;
begin
str:=Memo1.Text;
n:=length(str);
t:=(n div 2); // номер элемента,с которого будем удалять
If (n mod 2)=0 then // проверка на чётность
delete(str,t,2) else delete (str,t+1,1);

end;

[skgwazap]

Все работает практически правильно, только при нечетном количестве символов нужно удалять с t+1 позиции

var str: string;
     n:integer;
     t:integer;
begin
    str:=Memo1.Text;
    n:=length(str);
    t:=(n div 2); 
    If (n mod 2)=0 then 
        delete(str,t,2) else delete (str,t+1,1);
    ShowMessage(str);
end;

Текст в memo изменяться не будет, может это Вас смутило?

[skgwazap]

эх не успел

[Яська]

да,почему в мемо он не будет меняться?просто текст в мемо я вывожу из файла и результат мне потом нужно тоже сохранить в файл

[Яська]

всё,спасибо,я догадалась)