ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
27.02.2009, 23:48
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Все вродебы разобрался, кому интересно оказывается нужно было 2 форму прописать в Uses первой и аналогично со 2 формой
|
|
|
28.02.2009, 19:37
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
Есть TМемо
В нем записано ~ такое:
12345678@asdasdas
12356468@ascvxcczs
12567678@ascxvdas7
12345678@aszx43543
Так вот как получить переменную того что до @ и того что после?
Например как ' + memo1.Lines[i] + ' переменная всей строки.....
|
|
|
|
28.02.2009, 21:46
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от Uname-A
Есть TМемо
В нем записано ~ такое:
12345678@asdasdas
12356468@ascvxcczs
12567678@ascxvdas7
12345678@aszx43543
Так вот как получить переменную того что до @ и того что после?
Например как ' + memo1.Lines[i] + ' переменная всей строки.....
pos,copy functions
|
|
|
|
28.02.2009, 21:57
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Сообщение от Uname-A
Есть TМемо
В нем записано ~ такое:
12345678@asdasdas
12356468@ascvxcczs
12567678@ascxvdas7
12345678@aszx43543
Так вот как получить переменную того что до @ и того что после?
Например как ' + memo1.Lines[i] + ' переменная всей строки.....
Код:
var i,j:integer;
m,k:string;
begin
i:=0;
j:=1;
for i=0 to memo1.lines.count-1 do
begin
for j=1 to lenght(memo1.lines[i]) do
begin
m:=memo1.lines[i];
k:=memo1.lines[i];
if m[j]:='@' then
begin
delete (m,j,maxint);
delete(k,1,j);
end;
end;
end;
end;
проверь, должно работать...
писал без подсветки синтаксиса и не в компиляторе.
Последний раз редактировалось AlexTheC0d3r; 28.02.2009 в 23:52..
|
|
|
|
28.02.2009, 23:14
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
Провел на форуме:
458484
Репутация:
31
|
|
У тебя в слове 'длина' ошибка =)
lengt => length
А так все ок Код рабочий СПС
|
|
|
|
01.03.2009, 13:54
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме:
153361
Репутация:
10
|
|
ребята у меня такой вопрос по паскалю , мне нужно чтобы когда пользователь вводил информацию происходила проверка вводит ли он в поле для цифр цифры или буквы, чтобы программа не вылетала а писала что нужно ввести правильный тип данных и снова предлагала ввести информацию. Как это можно реализовать?
|
|
|
|
01.03.2009, 19:36
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от Djezul
ребята у меня такой вопрос по паскалю , мне нужно чтобы когда пользователь вводил информацию происходила проверка вводит ли он в поле для цифр цифры или буквы, чтобы программа не вылетала а писала что нужно ввести правильный тип данных и снова предлагала ввести информацию. Как это можно реализовать?
while(true)
begin
try
забыл уже как на Delphi 
Вобщем просто тупо тут пробуешь сделать Val (если я не ошибаюсь, функция переводит из string в integer;
если
except
Извините вы ввели не числа
end;
вобщем логика такова, я на дельфи уже год не пишу, даже больше, подзабыл
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
01.03.2009, 20:23
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
В паскале надо юзать val(st, int, code), где st- строка, int - целое число, code - код возврата( будет возвращать значение = 0 если нет ошибки, т.е. если у вас в строке чистое число)
гугли дальше  |
|
|
|
01.03.2009, 20:24
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от W!z@rD
while(true)
begin
try
забыл уже как на Delphi
Вобщем просто тупо тут пробуешь сделать Val (если я не ошибаюсь, функция переводит из string в integer;
если
except
Извините вы ввели не числа
end;
вобщем логика такова, я на дельфи уже год не пишу, даже больше, подзабыл проще TryStrToInt )
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
01.03.2009, 20:26
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
Сообщение от W!z@rD
while(true)
begin
try
забыл уже как на Delphi
Вобщем просто тупо тут пробуешь сделать Val (если я не ошибаюсь, функция переводит из string в integer;
если
except
Извините вы ввели не числа
end;
вобщем логика такова, я на дельфи уже год не пишу, даже больше, подзабыл Человек просил на Паскале, а не в Дельфи. Разве try-except имеет место в Паскале? Это ж не ООЯП, тут ток run-time error's могут иметь место
А вот насчёт val - это тру =)
Код:
repeat
readln(mystr);
Val(mystr, num_int, errorflag);
if errorflag = 0 then writeln('not a number');
until (errorflag <> 0);
Либо тупо проверяем все символы на принадлежность к [0..9] , но это малясь извращённее)
Нечто типо
Код:
readln(s);
c:=0;
for q:= 0 to length(s) do begin
for i:=0 to 9 do begin;
if copy(s,q,1)=IntToStr(i) then c:=c+1;
end;
end;
if c<>length(s) then writeln('Это не число') else writeln('Это число');
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид