Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];
Вниз
Строку наоборот Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.009 c
