ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 497 из 671 « Первая < 397447487 493 494 495 496 497 498 499 500 501 507547597 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 24.11.2009, 22:05
P.A.U.L
Познающий
Регистрация: 12.08.2009
Сообщений: 32
С нами: 8815306

Репутация: 0
По умолчанию
StealthMaster, спс за помощь, попробую разобраться Но тот метод который ты применил, т.е. использовал массив записей, я не знаю... Но попробую все таки разобраться
𝕏 Twitter Reddit Telegram Копировать ссылку
 
Ответить с цитированием

  #2  
Старый 24.11.2009, 22:29
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
С нами: 8947056

Репутация: 229
По умолчанию
Цитата:
нужно выдернуть определенный блок например [2] и его содержимое т.е 7854325890863216809765434 вывести в тот же листбокс
"Работа с ini файлами" в гугле
Последний раз редактировалось wolmer; 24.11.2009 в 23:45..
 
Ответить с цитированием

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

Репутация: 0
По умолчанию
[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.
 
Ответить с цитированием

  #4  
Старый 24.11.2009, 23:55
speles
Познающий
Регистрация: 21.08.2009
Сообщений: 46
С нами: 8801627

Репутация: 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.
 
Ответить с цитированием

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

Репутация: 0
По умолчанию
speles, спс огромное, работает
 
Ответить с цитированием

  #6  
Старый 25.11.2009, 01:38
mobilka
Познающий
Регистрация: 13.10.2009
Сообщений: 63
С нами: 8725016

Репутация: 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;
не выводит в листбокс ничего
 
Ответить с цитированием

  #7  
Старый 25.11.2009, 01:44
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
С нами: 8947056

Репутация: 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;
 
Ответить с цитированием

  #8  
Старый 25.11.2009, 01:51
mobilka
Познающий
Регистрация: 13.10.2009
Сообщений: 63
С нами: 8725016

Репутация: 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;
и все равно листбокс после загрузки пустой
 
Ответить с цитированием

  #9  
Старый 25.11.2009, 02:02
wolmer
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
С нами: 8947056

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

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

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

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

Код:
Listbox1.Items.Add(s);
Ну а в переменной s ниче ж нету! Если несправишся то расскажи собственно что программа должна делать?
так рассказывал вроде выше. имеем файл .txt с содержанием-
[3]
0=34534D9304
задача получить значение 34534D9304 в листбоксе
 
Ответить с цитированием
Ответ
Страница 497 из 671 « Первая < 397447487 493 494 495 496 497 498 499 500 501 507547597 > Последняя »



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



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


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




ANTICHAT ™ © 2001- Antichat Kft.