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

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 вся ветка

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



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