HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 503 из 677 « Первая < 3403453493 499 500 501 502 503 504 505 506 507 513553603 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #5021  
Старый 24.11.2009, 23:38
P.A.U.L
Познающий
Регистрация: 12.08.2009
Сообщений: 32
Провел на форуме:
482943

Репутация: 0
Отправить сообщение для P.A.U.L с помощью ICQ
По умолчанию
[Pascal]И еще вот эту помогите доработать чутка...

Вот так звучит задача: Дана строка символов, удалить из нее все строчные латинские символы)

Баг программы заключается в том, что удаляет не каждый символ который должен быть удален, а через один...

Цитата:
uses crt;
var s:string;
i,l:integer;
begin
clrscr;
write('stroka: '); readln(s);
l:=length(s);

for i:=1 to l do begin
if (s[i]=(chr(97))) or (s[i]=(chr(98))) or (s[i]=(chr(99))) or (s[i]=(chr(100)))or
(s[i]=(chr(101)))or(s[i]=(chr(102)))or(s[i]=(chr(103)))or(s[i]=(chr(104)))or
(s[i]=(chr(105)))or(s[i]=(chr(106)))or(s[i]=(chr(107)))or(s[i]=(chr(108)))or
(s[i]=(chr(109)))or(s[i]=(chr(110)))or(s[i]=(chr(111)))or
(s[i]=(chr(112)))or(s[i]=(chr(113)))or(s[i]=(chr(114)))or(s[i]=(chr(115)))or
(s[i]=(chr(116)))or(s[i]=(chr(117)))or(s[i]=(chr(118)))or
(s[i]=(chr(119)))or(s[i]=(chr(120)))or(s[i]=(chr(121))) or
(s[i]=(chr(122)))or(s[i]=(chr(123)))or(s[i]=(chr(124)))

then delete(s,i,1)
end;
writeln(s);
readln;
end.
 
Ответить с цитированием

  #5022  
Старый 24.11.2009, 23:55
speles
Познающий
Регистрация: 21.08.2009
Сообщений: 46
Провел на форуме:
634096

Репутация: 7
По умолчанию
to P.A.U.L.
коряво но всеже
Код:
uses crt;
var s,ss:string;
i,l:integer;
begin
clrscr;
write('stroka: '); readln(s);
l:=length(s);

for i:=1 to l do begin
if not ((s[i]=(chr(97))) or (s[i]=(chr(98))) or (s[i]=(chr(99))) or (s[i]=(chr(100)))or
(s[i]=(chr(101)))or(s[i]=(chr(102)))or(s[i]=(chr(103)))or(s[i]=(chr(104)))or
(s[i]=(chr(105)))or(s[i]=(chr(106)))or(s[i]=(chr(107)))or(s[i]=(chr(108)))or
(s[i]=(chr(109)))or(s[i]=(chr(110)))or(s[i]=(chr(111)))or
(s[i]=(chr(112)))or(s[i]=(chr(113)))or(s[i]=(chr(114)))or(s[i]=(chr(115)))or
(s[i]=(chr(116)))or(s[i]=(chr(117)))or(s[i]=(chr(118)))or
(s[i]=(chr(119)))or(s[i]=(chr(120)))or(s[i]=(chr(121))) or
(s[i]=(chr(122)))or(s[i]=(chr(123)))or(s[i]=(chr(124))))

then ss := ss + s[i]
end;
writeln(ss);
readln;
end.
 
Ответить с цитированием

  #5023  
Старый 25.11.2009, 01:04
mobilka
Познающий
Регистрация: 13.10.2009
Сообщений: 63
Провел на форуме:
373897

Репутация: 13
По умолчанию
Цитата:
Сообщение от mobilka  
блин выдирает не то что нужно. а именно-
в листбокс 2 загружается-
[1]
09843075432
[2]
7854325890863216809765434
[3]
65D432
в листбокс1 выводит вторую строчку-
09843075432
а нужно 7854325890863216809765434
а если файл содержит всего одну строчку то программа вылетает с ошибкой.
p.s заменить [2] на [4] я догадался но это не то что нужно.
помогите пожалуйста
 
Ответить с цитированием

  #5024  
Старый 25.11.2009, 01:12
P.A.U.L
Познающий
Регистрация: 12.08.2009
Сообщений: 32
Провел на форуме:
482943

Репутация: 0
Отправить сообщение для P.A.U.L с помощью ICQ
По умолчанию
speles, спс огромное, работает
 
Ответить с цитированием

  #5025  
Старый 25.11.2009, 01:38
mobilka
Познающий
Регистрация: 13.10.2009
Сообщений: 63
Провел на форуме:
373897

Репутация: 13
По умолчанию
вроде нашел то что нужно только осталось найти сдесь ошибку-
Цитата:
procedure TForm1.Button2Click(Sender: TObject);
var TS : TStringList;
i: integer;
s: string;
begin
if OpenDialog1.Execute then

TS := TStringList.Create;
TS.LoadFromFile(OpenDialog1.FileName);
TS.IndexOf('[3]');
Pos('0=', TS.Strings[i]);
Listbox1.Items.Add(s);
end;
не выводит в листбокс ничего
 
Ответить с цитированием

  #5026  
Старый 25.11.2009, 01:44
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503

Репутация: 229
По умолчанию
Цитата:
Сообщение от mobilka  
вроде нашел то что нужно только осталось найти сдесь ошибку-

не выводит в листбокс ничего
Код:
procedure TForm1.Button2Click(Sender: TObject);
var TS : TStringList;
i: integer;
s: string;
begin
if OpenDialog1.Execute then
begin
TS := TStringList.Create;
TS.LoadFromFile(OpenDialog1.FileName);
TS.IndexOf('[3]');
Pos('0=', TS.Strings[i]);
Listbox1.Items.Add(s);
end;
end;
 
Ответить с цитированием

  #5027  
Старый 25.11.2009, 01:51
mobilka
Познающий
Регистрация: 13.10.2009
Сообщений: 63
Провел на форуме:
373897

Репутация: 13
По умолчанию
Цитата:
Сообщение от wolmer  
Код:
procedure TForm1.Button2Click(Sender: TObject);
var TS : TStringList;
i: integer;
s: string;
begin
if OpenDialog1.Execute then
begin
TS := TStringList.Create;
TS.LoadFromFile(OpenDialog1.FileName);
TS.IndexOf('[3]');
Pos('0=', TS.Strings[i]);
Listbox1.Items.Add(s);
end;
end;
и все равно листбокс после загрузки пустой
 
Ответить с цитированием

  #5028  
Старый 25.11.2009, 02:02
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503

Репутация: 229
По умолчанию
Цитата:
Сообщение от mobilka  
и все равно листбокс после загрузки пустой
А блин точно, пропустил кое что

Код:
Listbox1.Items.Add(s);
Ну а в переменной s ниче ж нету! Если несправишся то расскажи собственно что программа должна делать?
 
Ответить с цитированием

  #5029  
Старый 25.11.2009, 02:10
mobilka
Познающий
Регистрация: 13.10.2009
Сообщений: 63
Провел на форуме:
373897

Репутация: 13
По умолчанию
Цитата:
Сообщение от wolmer  
А блин точно, пропустил кое что

Код:
Listbox1.Items.Add(s);
Ну а в переменной s ниче ж нету! Если несправишся то расскажи собственно что программа должна делать?
так рассказывал вроде выше. имеем файл .txt с содержанием-
[3]
0=34534D9304
задача получить значение 34534D9304 в листбоксе
 
Ответить с цитированием

  #5030  
Старый 25.11.2009, 02:33
=Zeus=
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939

Репутация: 108
Отправить сообщение для =Zeus= с помощью ICQ
По умолчанию
Блин ну вы жжоте
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
TS : TStringList;
i: integer;
begin
if OpenDialog1.Execute then
begin
TS := TStringList.Create;
TS.LoadFromFile(OpenDialog1.FileName);
i:=TS.IndexOf('[3]');
Listbox1.Items.Add(TS[i+1]);
end;
end;
Так тебе нужно? Мобилка ты вообще делфи хоть чуть-чуть знаешь? Такое ощущение что ты его первый раз видишь. Мне не жалко накодить готовое, но ты должен сам учиться!
Последний раз редактировалось =Zeus=; 25.11.2009 в 02:39..
 
Ответить с цитированием
Ответ
Страница 503 из 677 « Первая < 3403453493 499 500 501 502 503 504 505 506 507 513553603 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/Wi-Fi/Wardriving 2568 25.04.2026 12:58
[jQuery] - Задай вопрос, получи ответ Isis PHP 62 25.12.2009 03:25



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ