Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
-8 / 0 / 0
Регистрация: 03.12.2014
Сообщений: 66
1

Как скопировать и подставить текст в Дельфи?

01.06.2015, 15:48. Показов 1094. Ответов 2
Метки нет (Все метки)

В общем, в memo1 есть текст:
12345|AABBCC
54321|BBAACC
23145|CCAABB
53412|CCBBAA

В общем нужно скопировать текст до знака "|" и подставить его после последнего знака в этой строке через знак "/".
Выводим результат в memo2.

Должно получиться:
12345|AABBCC/12345
54321|BBAACC/54321
23145|CCAABB/23145
53412|CCBBAA/53412

Сможете помочь?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2015, 15:48
Ответы с готовыми решениями:

Как окрасить текст в Edit при использовании стилей Дельфи?
делфи выбрал стиль и сэчас не срабатывает замена цвета текста. ну в принципе вся праграма так но...

Как скопировать текст из WebBrowser ?
Скорей всего делаю что-то не так, но это не работает ...

Как скопировать текст из TEdit в TLabel?
Создать проект, в котором данные, введенные в поле Edit дублируются в компонент Label. Название...

Как скопировать текст без символов и цифр
Всем привет помогите все обыскал не нашел как скопировать текст без символов и без цифр только...

2
678 / 501 / 231
Регистрация: 02.10.2012
Сообщений: 1,717
01.06.2015, 15:58 2
Лучший ответ Сообщение было отмечено ERTGER как решение

Решение

Delphi
1
2
3
4
5
6
7
8
var
  i,x:integer;
begin
  for i:=0 to Memo1.Lines.Count-1 do begin
     x:=Pos('|', Memo1.Lines.Strings[i]);
     memo2.Lines.Add(Memo1.Lines.Strings[i]+'/'+copy(Memo1.Lines.Strings[i],0,x-1));
  end;
end;
0
5441 / 2148 / 450
Регистрация: 20.11.2009
Сообщений: 7,186
Записей в блоге: 1
01.06.2015, 16:00 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    S: String;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    begin
      S := Memo1.Lines[i];
      S := Copy(S, 1, Pos('|', S) - 1);
      Memo2.Lines.Add(Memo1.Lines[i] + '/' + S)
    end;
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2015, 16:00

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

программа дельфи текст
ввести текст с клавиатуры. удалить из текста все цифры, сообщить о кол-ве удаленных цифр, если...

Нужно загрузить текст проги в дельфи, сохранить в проект, у меня ошибка
Есть программа на дельфи, надо ее в него запихать и сохранить, чтоб был экзешник и чтоб она в...

Как скопировать *.jpg из определенной папки и скопировать в папку Temp?
Подскажите как правильно переписать данный код чтобы он работал: begin WinExec('cmd.exe /c...

Как скопировать текст?
Напишите код код копировать виделений текст при нажатиє на кнопку?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.