07.03.2009, 08:27
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
С нами:
9785147
Репутация:
137
|
|
St0nX спасибо но там на C++
я пытался через сокеты на делфях но что то неполучается
http://forum.antichat.ru/showpost.php?p=1140193&postcount=2924
|
|
|
07.03.2009, 11:25
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
С нами:
9416345
Репутация:
165
|
|
t04, как вариант юзать готовую библиотеку регулярных выражений RegExp http://anso.da.ru
|
|
|
|
07.03.2009, 11:32
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
С нами:
9416345
Репутация:
165
|
|
ZET36 ->
http://citforum.yspu.yar.ru/programming/delphi/sockets-1/
http://citforum.yspu.yar.ru/programming/delphi/sockets-2/
|
|
|
|
08.03.2009, 00:31
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
Как при помощи компонента DataFile (аналог ini files, только с шифровкой) сохранить весь текст в мемо.
Через dat.WriteStrings(); что-то неполучается =( Если кто может выложите плиз пример именно для мемо, потомушто с едитом все норм
|
|
|
|
08.03.2009, 13:34
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
С нами:
9365528
Репутация:
425
|
|
Сообщение от Maxxxtri23
Как при помощи компонента DataFile (аналог ini files, только с шифровкой) сохранить весь текст в мемо.
Через dat.WriteStrings(); что-то неполучается =( Если кто может выложите плиз пример именно для мемо, потомушто с едитом все норм
а нет случайно функции dat.readstrings(); или что-то вроде этого
|
|
|
|
08.03.2009, 13:41
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
В том то и дело что есть, но когда я её использую, то компилятор выдает кучу ошибок
|
|
|
|
08.03.2009, 15:06
|
|
Новичок
Регистрация: 12.04.2008
Сообщений: 8
С нами:
9515627
Репутация:
1
|
|
Решил вспомнить паскаль , сел открыл задачник нашел самую легеньку и на ней же и запоролся , помогите найти ошибку в коде
Код:
program myfirst;
var
planeta1, planeta2: string;
radiys1, radiys2, skorost1, skorost2, sytki1, sytki2: integer;
begin
Writeln ('Zdrastvyite vvedite nazvanie pervoi planetu');
Readln (planeta1);
Writeln ('kakoi radiyes etoi planetu?');
Readln (radiys1);
Writeln ('kaka9 skorost dvigeni9 po arbite');
Readln (skorost1);
Writeln ('vvedite nazvanie vtoroi planetu');
Readln (planeta2);
Writeln ('kakoi ee radiys');
Readln (radiys2);
Writeln ('kaka9 skorost arbitu');
Readln (skorost2);
sytki1 := radiys1/skorost1;
Writeln ('Ha', planeta1,' 'sytok-', sytki1,);
sytki2 := radiys2/skorost2;
Writeln ('Ha', planeta2, 'sytok-', sytki2,);
Read
end.
|
|
|
|
08.03.2009, 15:46
|
|
Новичок
Регистрация: 12.04.2008
Сообщений: 8
С нами:
9515627
Репутация:
1
|
|
Сообщение от handless
Решил вспомнить паскаль , сел открыл задачник нашел самую легеньку и на ней же и запоролся , помогите найти ошибку в коде
Код:
program myfirst;
var
planeta1, planeta2: string;
radiys1, radiys2, skorost1, skorost2, sytki1, sytki2: integer;
begin
Writeln ('Zdrastvyite vvedite nazvanie pervoi planetu');
Readln (planeta1);
Writeln ('kakoi radiyes etoi planetu?');
Readln (radiys1);
Writeln ('kaka9 skorost dvigeni9 po arbite');
Readln (skorost1);
Writeln ('vvedite nazvanie vtoroi planetu');
Readln (planeta2);
Writeln ('kakoi ee radiys');
Readln (radiys2);
Writeln ('kaka9 skorost arbitu');
Readln (skorost2);
sytki1 := radiys1/skorost1;
Writeln ('Ha', planeta1,' 'sytok-', sytki1,);
sytki2 := radiys2/skorost2;
Writeln ('Ha', planeta2, 'sytok-', sytki2,);
Read
end.
если место "/" ставиш целочисленное деление "div" то все ок ... но как мне с "/" работать
|
|
|
|
08.03.2009, 15:53
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 360
С нами:
9671366
Репутация:
332
|
|
Сообщение от handless
Решил вспомнить паскаль , сел открыл задачник нашел самую легеньку и на ней же и запоролся , помогите найти ошибку в коде
Код:
program myfirst;
var
planeta1, planeta2: string;
radiys1, radiys2, skorost1, skorost2, sytki1, sytki2: integer;
begin
Writeln ('Zdrastvyite vvedite nazvanie pervoi planetu');
Readln (planeta1);
Writeln ('kakoi radiyes etoi planetu?');
Readln (radiys1);
Writeln ('kaka9 skorost dvigeni9 po arbite');
Readln (skorost1);
Writeln ('vvedite nazvanie vtoroi planetu');
Readln (planeta2);
Writeln ('kakoi ee radiys');
Readln (radiys2);
Writeln ('kaka9 skorost arbitu');
Readln (skorost2);
sytki1 := radiys1/skorost1;
Writeln ('Ha', planeta1,' 'sytok-', sytki1,);
sytki2 := radiys2/skorost2;
Writeln ('Ha', planeta2, 'sytok-', sytki2,);
Read
end.
ну для начала грубая ошибка:
Код:
sytki1 := radiys1/skorost1;
....
sytki2 := radiys2/skorost2;
вот такео писать при заданном sytki1, sytki2: integer;
в результате деления целого типа неполучится, может получиться челое число но не тип! поетому сделай так:
sytki1, sytki2: Real;
кароче зелёным выделено все что исправлено, красным то что удалить надо:
Код:
var
planeta1, planeta2: string;
radiys1, radiys2, skorost1, skorost2: integer;
sytki1, sytki2:real;
begin
Writeln ('Zdrastvyite vvedite nazvanie pervoi planetu');
Readln (planeta1);
Writeln ('kakoi radiyes etoi planetu?');
Readln (radiys1);
Writeln ('kaka9 skorost dvigeni9 po arbite');
Readln (skorost1);
Writeln ('vvedite nazvanie vtoroi planetu');
Readln (planeta2);
Writeln ('kakoi ee radiys');
Readln (radiys2);
Writeln ('kaka9 skorost arbitu');
Readln (skorost2);
sytki1 := radiys1/skorost1;
Writeln ('Ha', planeta1,' 'sytok-', sytki1,);
sytki2 := radiys2/skorost2;
Writeln ('Ha', planeta2, 'sytok-', sytki2,);
Read
end.
|
|
|
|
08.03.2009, 15:27
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
С нами:
9152717
Репутация:
6
|
|
Всетаки я так и не могу разобраться с TdataFile. Вот у меня строчка записи мемо
Код:
dat.WriteStrings('UINs','DATA',Memo1.Lines);
А вот строчка чтения
Код:
Memo1.Lines:=dat.readstrings('UINs','DATA',Memo1.Lines);
И вот тут компилятор пишет ошибку
Код:
[Error] Unit2.pas(125): Incompatible types: 'TStrings' and 'procedure, untyped pointer or untyped parameter'
Немогу понять в чем тут дело, хотя едиты прекрастно сохраняет
Вот если кому надо сам компонент _http://www.programmersforum.ru/attachment.php?%20%20attachmentid=2764&d=120361290 5
Последний раз редактировалось Maxxxtri23; 08.03.2009 в 15:35..
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
