Форум: "Потрепаться";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
Внизinteger & string Найти похожие ветки
← →
comintegrator (2003-06-07 08:37) [0]такой вопрос
беру в дельфи текст из memo1 из стринг преобразовываю в интегер;
procedure TForm1.Button1Click(Sender: TObject);
begin
text:=(memo1.Text);
integer(pretext):=integer(text);
pretext:=pretext;
memo2.Text:=(inttostr(pretext));
end;
получается что в memo2 падает содержимое из memo1 но в виде integer;
далее беру содержимое из memo2 перевожу его снова в стринг
и кидаю в memo3;
procedure TForm1.Button2Click(Sender: TObject);
var sec: integer;
var x:string;
begin
x:=memo2.text;
sec:=(strtoint(x));
memo3.Text:=(string(sec));
end;
все в порядке.. в memo3 появляется исходный текст но как
только я на одном компе его кину в интегер и пытаюсь бросить с стринг на другом
компе данные
либо доходят частично либо не доходят вообще непонятно в чем дело в
пределах одной машины текст шифруется и расшифровывается без ошибок но
как переходит с одной телеги на другую облом...не могу понять в чем
дело...может кто подскажет что не так ?
← →
Yanis (2003-06-07 11:04) [1]А у мнея вообще при такой конструкции, при клике на Button1 в Memo2 появляется текст:"Form1"
...............!!??
← →
Alex44 (2003-06-07 11:35) [2]Voobshe, ochen" netrivial"naya constructia. Real"no Vy pishete v Memo2 address, v kotorom hranitsya text. (Ibo string text---eto, po sushestvu, prosto address.) Estestvenno, eto imeet smysl ochen" ne dolgo (do pervogo izmeneniya text, posle chego Vy s horoshej veroyatnost"yu poluchite access violation), i uzh sovsem ne imeet smysla na drugoj machine ili v drugoj programe.
← →
Демонов Е.В. (2003-06-07 13:28) [3]А вообщето не плохо бы почитать про тип STRING.
← →
Malder (2003-06-07 13:50) [4]Я вообще не понял.
Что такое:
1) pretext
2) text
3) integer(pretext):=integer(text);
4) зачем нужно pretext:=pretext;
5) пытаюсь бросить с стринг на другом
компе данные
либо доходят частично либо не доходят вообще
Куда, чего и как ты кидаешь данные ?
P.S. Ты что, таким образом шифруешь данные ? НУ ты даешь...
← →
Palladin (2003-06-07 15:23) [5]procedure TForm1.Button1Click(Sender: TObject);
begin
text:=(memo1.Text); // странная конструкция
integer(pretext):=integer(text); // приравнял указатели
pretext:=pretext; // правнял переменную саму к себе
memo2.Text:=(inttostr(pretext)); // запихал в TMemo значение указателя...
end;
кстати это все явно не компилируется
← →
MBo (2003-06-07 16:30) [6]Ты лучше задачу опиши
← →
Юрий Зотов (2003-06-07 16:46) [7]Вмдимо, это на Перле написано. Точнее, на языке описания перлов.
← →
Anatoly Podgoretsky (2003-06-07 17:08) [8]Это на Бреде
← →
Real (2003-06-07 17:41) [9]> memo2.Text:=(inttostr(pretext));
....
> получается что в memo2 падает содержимое из memo1 но в виде
> integer;
Да? А я думал что IntToStr всегда именно string возвращает...
А вообще, бред какой-то это точно, особенно строчка pretext:=pretext; - вот оптимизатор с нее наверное ухахатывается и потому у тебя данные частично доходят :)
← →
comintegrator (2003-06-08 13:11) [10]я не приравнивал переменную саму к себе просто пробовал pretext:=pretext+33; посмотреть что получится потом убрал 33..
знаю что это бред просто из принципа хотел узнать почему не получается :)
← →
Palladin (2003-06-08 13:25) [11]читал бы литературу, раз такой принципиальный
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.025 c