Строку наоборот

← →
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]

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