Code: 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; проверь, должно работать... писал без подсветки синтаксиса и не в компиляторе.
ребята у меня такой вопрос по паскалю , мне нужно чтобы когда пользователь вводил информацию происходила проверка вводит ли он в поле для цифр цифры или буквы, чтобы программа не вылетала а писала что нужно ввести правильный тип данных и снова предлагала ввести информацию. Как это можно реализовать?
while(true) begin try забыл уже как на Delphi Вобщем просто тупо тут пробуешь сделать Val (если я не ошибаюсь, функция переводит из string в integer; если except Извините вы ввели не числа end; вобщем логика такова, я на дельфи уже год не пишу, даже больше, подзабыл
Простой клиент-сервер,запускается но меседж не выскакивает.Помогите найти ошибку. Code: var Form1: TForm1; tserv: TTcpServer; tclient:TTcpClient; t: string; procedure TForm1.FormCreate(Sender: TObject); begin tserv:=TTcpServer.Create(NIL); tserv.LocalPort:='1111'; tserv.Active:=True; begin repeat sleep(500); t:=tserv.Receiveln(); if t='test' then MessageBox(0, 'test', 'test',0); until true end; end; procedure TForm1.Button1Click(Sender: TObject); begin tclient:=TTcpClient.Create(NIL); tclient.RemoteHost:='127.0.0.1'; tclient.RemotePort:='1111'; tclient.Active:=True; end; procedure TForm1.Button2Click(Sender: TObject); begin tclient.Sendln('test'); end;
В паскале надо юзать val(st, int, code), где st- строка, int - целое число, code - код возврата( будет возвращать значение = 0 если нет ошибки, т.е. если у вас в строке чистое число) гугли дальше
Человек просил на Паскале, а не в Дельфи. Разве try-except имеет место в Паскале? Это ж не ООЯП, тут ток run-time error's могут иметь место А вот насчёт val - это тру =) Code: repeat readln(mystr); Val(mystr, num_int, errorflag); if errorflag = 0 then writeln('not a number'); until (errorflag <> 0); Либо тупо проверяем все символы на принадлежность к [0..9] , но это малясь извращённее) Нечто типо Code: 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('Это число');
Функция предназначена дла проверки значения строки: Code: type TTypeStr = (tsString, tsDate, tsNumber); function CheckString(const Value: string): TTypeStr; begin if StrToDateTimeDef(Value, 0) = 0 then if StrToIntDef(Value, 0) = 0 then Result := tsString else Result := tsNumber else Result := tsDate end;
Ребят спасибо , сейчас буду разбираться! Я уж думал никто не заметил этих слов))) Попробовал сделать , этот код выводит что не число если вводишь число , и только 2 раз можно сделать ввод кода, потом вылетает((( Можешь написать пожалуйста код маленькой проги , которая будет проверять является ли введёная строка цифрами или буквами, и если не сложно мож ещё написать код функции для использования её в программах. Хотелось бы так что пишеться name_of_function(name_of_x); имя функции , а в ней имя переменной которой нужно считать. ТОесть эта функция должна заменять стандартный read но с проверкой! Если от меня чтото понадоиться чем смогу помогу, заранее благодарен!
Да ты бы лучше сначало examplы на дельфи посмотрел, а потом бы такую чухню уже писал=)http://www.indyproject.org/Sockets/Demos/index.EN.aspx
На форме есть компонент webbrowser1. Я допустим с помощью него перешел на страницу1, а потом с неё же перешел по ссылкам на странице1.Вот мне нужно узнать на каком URL адресе сейчас находится webbrowser1?
Ну тогда так..Дальше уж реализуешь, думаю Code: program tmp; var a: integer; begin write('Enter a number: '); {$I-} readln(a); {$I+} if (ioresult <> 0) then begin writeln('Its not integer'); readln(a); end else begin write('All rigth, its integer'); readln(a); end; end.
Спасибо огромное , всё работает)) Только незнаю пока зачем нужно {$I-} и {$I+} С этим ioresult , разберусь )) Короч +5 тебе )
