Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
Я беру из Мемо строку (в цикле) на обработку и переворачиваю её (abc.123/123.abc), потом возвращаю обратно в Мемо.
Мне нужно сделать так, чтобы переменная (или Memo1.Lines.Strings[i];) очищалась перед тем как обработанная строка возвращается обратно.
То есть берётся строка и удаляется ,затем переворачивается и вставляется обратно.
Мне кажется нужно вырезать её в переменную.
Буду благодарен за код всей задумки!
Заранее Спасибо за советы, и за код по возможности!

Вопрос задал: Ximer (статус: Посетитель) Вопрос отправлен: 15 апреля 2010, 00:03 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Ну, вот типа как-то так:

function ReverseString(const S: string): string;
var
  Index: Integer;
  Temp: string;
begin
  Index:= Pos('.', S);
 
  if Index <> 0
    then Result:= Copy(S, Index + 1, High(Integer)) + '.' + Copy(S, 1, Index - 1)
    else Result:= S;
end;
 
procedure ReverseLines(ALines: TStrings);
var
  Index: Integer;
begin
  ALines.BeginUpdate();
  try
    for Index:= 0 to ALines.Count - 1 do
      ALines[Index]:= ReverseString(ALines[Index]);
  finally
    ALines.EndUpdate();
  end;
end;
 
// Разворот строк Memo1:
 
ReverseLines(Memo1.Lines);

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 15 апреля 2010, 08:18 Оценка за ответ: 5 Комментарий к оценке: ;)

Мини-форум вопроса

Страницы: [« Предыдущая] [1] [2]

min@y™ (статус: Доктор наук), 15 апреля 2010, 22:19 [#21]: Цитата (Ximer): После долгих мучений, код у меня есть =))) После долгих МОИХ мучений по уточнению сути вопроса. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Ximer (статус: Посетитель), 15 апреля 2010, 22:41 [#22]: =)))) Ага

Страницы: [« Предыдущая] [1] [2]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.