Изменения в строке в Memo1

@aild · Регистрация: 26.03.2010

Студворк — интернет-сервис помощи студентам

Добрый вечер. В мемо1 есть строки вида:

Code
1
2
3
4
5
001 -   e   111 e
002 -   e   112 e
003 -   e   113 e
004 -   e   114 e
...

помогите написать цикл, чтобы в мемо2 появилось:

Code
1
2
3
4
5
001-e111e
002-e112e
003-e113e
004-e114e
...

Ну т.е. убрать пробелы и табуляцию.

@iama · 09.09.2010, 18:40

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
function ReplaceStr(const S, Srch, Replace: string): string;
{замена подстроки в строке}
var
 I:Integer;
 Source:string;
begin
 Source:= S;
 Result:= '';
 repeat
  I:=Pos(Srch, Source);
  if I > 0 then begin
   Result:=Result+Copy(Source,1,I-1)+Replace;
   Source:=Copy(Source,I+Length(Srch),MaxInt);
  end else Result:=Result+Source;
 until I<=0;
end;
 
...
 
var s: string; i: word;
 
for i := 0 to Memo1.Lines.Count - 1 do begin
  s := ReplaceStr(Memo1.Lines[i], #32, '');
  Memo1.Lines[i] = ReplaceStr(s, #9, '');
end;

@aild · 09.09.2010, 18:40 **[ТС]**

С пробелом все понятно, вот есть такое:

Delphi
1
Edit3.Text:=StringReplace(Edit2.text,' ','',[RFReplaceall]);

Но как быть с табом/табуляцией?

@iama · 09.09.2010, 18:43

aild, код таба, насколько я помню, 9. пишите вместо ' ' - #9

@Puporev · 09.09.2010, 18:52

aild, Напиши 2 раза.

Delphi
1
2
3
4
5
for i:=0 to Memo1.Lines.Count-1 do
 begin
  Memo1.Lines.Strings[i]:=StringReplace( Memo1.Lines.Strings[i],#32,'',[RFReplaceall]);
  Memo1.Lines.Strings[i]:=StringReplace( Memo1.Lines.Strings[i],#9,'',[RFReplaceall]);
 end;

@aild · 09.09.2010, 19:00 **[ТС]**

Спасибо всем, тему не закрывайте плз, есть еще парочка вопросов, щас сам попробую додуматься...

@Puporev · 09.09.2010, 19:03

aild, Я там лажу написал, исправил, крыша слегка поехала. Просто скопировал твой пример а там у тебя не табуляция, а несколько пробелов.

@aild · 09.09.2010, 19:25 **[ТС]**

Вот еще вопросик:
В мемо1 текст вида:

Code
1
2
3
4
ййй
ффф
яяя
...

В мемо2 текст вида:

Code
1
2
3
4
111
222
333
...

В мемо3 текст вида:

Code
1
2
3
4
!!!
!!!
!!!
...

В мемо4 текст вида:

Code
1
2
3
4
___
___
___
...

Помогите составить цикл, чтобы в мемо5 было так:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ййй
111
!!!
___
(пустая строка)
ффф
222
!!!
___
(пустая строка)
яяя
333
!!!
___
...

@iama · 09.09.2010, 19:28

Delphi
1
2
3
4
5
6
7
for i := 0 to Memo1.Lines.Count - 1 do begin
  Memo5.Lines.Add(Memo1.Lines[i]);
  Memo5.Lines.Add(Memo2.Lines[i]);
  Memo5.Lines.Add(Memo3.Lines[i]);
  Memo5.Lines.Add(Memo4.Lines[i]);
  Memo5.Lines.Add('');
end;

только нужно проверить, Memo1.Lines.Count меньше колличества строк в других мемо

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@iama 1360 / 988 / 119 Регистрация: 30.07.2010 Сообщений: 5,297
	09.09.2010, 18:43
	aild, код таба, насколько я помню, 9. пишите вместо ' ' - #9 1

@aild 0 / 0 / 1 Регистрация: 26.03.2010 Сообщений: 74
	09.09.2010, 19:00 [ТС]
	Спасибо всем, тему не закрывайте плз, есть еще парочка вопросов, щас сам попробую додуматься... 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.09.2010, 19:03
	aild, Я там лажу написал, исправил, крыша слегка поехала. Просто скопировал твой пример а там у тебя не табуляция, а несколько пробелов. 0