Скачать: CL | DM;

Строку наоборот   Найти похожие ветки 

← →
Quit   (2003-11-15 18:18) [0]

Подскажите пожалуйста вот например как сделать так чтоб в Edit1
вводишь строку а в Edit2 она отоброжалась наоборот
например ввёл Слово "пошёл" в Edit1 а в Edit2 написалось
"лёшоп".

---

← →
MBo ©   (2003-11-15 18:20) [1]

C помощью цикла for

---

← →
Quit   (2003-11-15 18:28) [2]

Можно пример пожалуйста.

---

← →
Palladin ©   (2003-11-15 18:32) [3]

Удалено модератором

---

← →
MBo ©   (2003-11-15 18:34) [4]

Пример - нельзя. А наводку - можно.
Переставляя символы вручную - делаешь так - на первое место новой строки ставишь последний символ новой. Потом на второе - предпоследний. и так до конца, т.е. до длины строки

---

← →
Pirate ©   (2003-11-15 18:36) [5]

For i:=1 to length(edit1.text) do
begin
edit2.text:=edit2.text+edit1.text[i];
end;

\\ВОТ и ВСЁЁЁЁЁЁЁЁЁЁЁЁЁЁЁ :)(ЧАЙНИК ТЫ)

---

← →
Quit   (2003-11-15 18:36) [6]

Удалено модератором

---

← →
Palladin ©   (2003-11-15 18:38) [7]

Удалено модератором

---

← →
MBo ©   (2003-11-15 18:39) [8]

> [5]
Сам попробовал? :))

---

← →
Quit   (2003-11-15 18:41) [9]

Ну можно всётаки хоть небольшой примерчик плиз

---

← →
dataMaster ©   (2003-11-15 18:47) [10]

> Pirate [5]

Решение местами правильное ;-)

---

← →
Вася Пупкин ©   (2003-11-15 18:49) [11]

Uses StrUtils;
....
Edit2.Text:=ReverseString(Edit2.Text);
И всё -) А если не полениться и заглянуть в модуль StrUtils.pas - там увидишь:

function ReverseString(const AText: string): string;
var
I: Integer;
P: PChar;
begin
SetLength(Result, Length(AText));
P := PChar(Result);
for I := Length(AText) downto 1 do
begin
P^ := AText[I];
Inc(P);
end;
end;

---

← →
Palladin ©   (2003-11-15 18:49) [12]

> Pirate © (15.11.03 18:36) [5]

мощно
но вот так можно еще круче запутать следы
For i:=length(edit1.text) downto 1 do
edit2.text:=edit1.text[i]+edit2.text;

---

← →
Quit   (2003-11-15 18:54) [13]

Спасибо огромное

---

← →
panov ©   (2003-11-15 20:20) [14]

А вот так следы можно совсем запутать(как, впрочем, и мозги запудрить):

function RevString(const aStr:String):String;
procedure CopyByte(p1,p2: PChar);
begin
if p1^=#0 then Exit;
p2^ := p1^;
CopyByte(PChar(p1+1),PChar(p2-1));
end;
begin
Result := aStr;
CopyByte(@aStr[1],@Result[Length(aStr)]);
end;


Здесь циклы не используются.

---

← →
Ломброзо ©   (2003-11-15 21:41) [15]

дадад... А просто WS_EX_RTLREADING у окошка эдита никто не пытался поставить? Как у ибереев или арапов?

---

← →
panov ©   (2003-11-16 00:30) [16]

>Ломброзо © (15.11.03 21:41) [15]

А зачем?
Строку надо получить, а не ее изображение.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c