Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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.03 c
7-84795
Piroman
2003-04-18 12:12
2003.06.26
Как запретить определять звуковую карту приложению??


1-84371
Hooch
2003-06-16 09:42
2003.06.26
Вид приложения


1-84334
dfg
2003-06-08 21:18
2003.06.26
График


3-83985
shoo
2003-05-30 10:23
2003.06.26
Выделить программно все строки в dbgrid е


14-84641
Jack128
2003-06-10 09:51
2003.06.26
Проблемы с винтом





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский