[In0stRAnez]

Как можно сделать так что считывать определённые символы в мемо1, например первые пять символов, или вторые пять символов, а потом например сделать действие: сверить вторые пять символов с текстом например из мемо2. Если кто знает прошу привести хороший пример с пояснением!

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

Сорри за название темы случайно не на ту клавишу нажал =(

[Rosenkrantz]

Первые пять символов из Memo1:

Код:

S := Copy(Memo1.Text, 1, 5)

Вторые пять символов:

Код:

S := Copy(Memo1.Text, 6, 5)

Сравнить строки можно просто оператором "равно" (=).
Сравнить сроки без учета регистра - функция AnsiCompareText.
С учетом регистра - AnsiCompareStr.

[In0stRAnez]

Спасибо! то что нужно!

[In0stRAnez]

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

Первые пять символов из Memo1:

Код:

S := Copy(Memo1.Text, 1, 5)

Вторые пять символов:

Код:

S := Copy(Memo1.Text, 6, 5)

Сравнить строки можно просто оператором "равно" (=).
Сравнить сроки без учета регистра - функция AnsiCompareText.
С учетом регистра - AnsiCompareStr.

Вот такой у меня возник вопрос в догонку Copy(Memo1.Text, 6, 5) - копирование с 5 по 6 символ, а как сделать удаление с 5 по 6 символ?

[Rosenkrantz]

Конкретно с 5-го по 6-й:

Код:

Delete(S, 5, 2);

А вообще хочу сказать, что в обоих случаях (копирование и удаление) хорошо бы разрывы строк проверять. Как вариант - их можно заменить на пробелы предварительно:

Код:

S := StringReplace(Memo1.Text, #13#10, ' ', [rfReplaceAll])