Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: 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 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.019 c
3-83983
sergei12r
2003-05-30 06:51
2003.06.26
нужно перекинуть dbaseские даные на parabox програмно


1-84283
Leon_M@ni@k
2003-06-14 14:31
2003.06.26
TStringGrid - срочно нужна консультация с автопереносом....


7-84791
Дельфятник
2003-04-18 11:05
2003.06.26
Какие события надо ловить чтобы программа реагировала на то, (+)


1-84226
Artemij
2003-06-11 13:04
2003.06.26
Как получить значение выделенной строки в ListBox?


1-84171
Михайлов Антон
2003-06-11 01:40
2003.06.26
Drag&Drop