Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 137

/ вопрос открыт /

Здравствуйте, эксперты! На диске С лежит файл xxx.txt, нужно:
1. Присвоить переменной a заначение 1 строки xxx.txt, переменной b значение 2 строки, переменной с значение 3 строки;
2. Присвоить переменной a значение строки, первый символ которой *, а переменной b значение строки, первый символ которой #...

Help me, please... Просто очень нужно...

Примечание #1 (29 ноября 2008, 14:16):
У меня будет вот такой вопрос, как сделать так чтобы XXX.txt загружался из Test.res. Помогите пожалуйста, если это вас не затруднит....

Ученый Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Ученый (статус: 8-ой класс)
Вопрос отправлен: 28 ноября 2008, 16:49
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Ученый!
Ну, ничего сложного нет. Всё примитивно.

var sl:TStringList;
begin
sl:=TStringList.create;
sl.LoadFromFile('xxxx.txt');
a := sl[0];
b := sl[1];
c := sl[2];
sl.free;
Не забываем, что нумерация идёт с нуля.
вторая половина чуточку сложнее.
var sl:TStringList;
i:integer;
begin
sl:=TStringList.create;
sl.LoadFromFile('xxxx.txt');
for i:=0 to sl.count-1 do begin
if sl[i][1] = '*' then a := sl[i];
if sl[i][1] = '#' then a := sl[i];
end;
sl.free;
Здесь предполагается, что заданные строки есть в наличии.

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 28 ноября 2008, 17:13
Оценка за ответ: 5

Комментарий к оценке: Спасибо!

Мини-форум вопроса

Всего сообщений: 3; последнее сообщение — 28 ноября 2008, 17:59; участников в обсуждении: 2.
Ученый

Ученый (статус: 8-ой класс), 28 ноября 2008, 17:34 [#1]:

Вот насчет второго варианта! пишу:
procedure TForm1.Button1Click(Sender: TObject);
var sl:TStringList;
i:integer;
a:string;
begin
sl:=TStringList.create;
sl.LoadFromFile('c:\XXX.txt');
for i:=0 to sl.count-1 do begin
if sl[i][1] = '*' then a := sl[i];

end;
sl.free;
label1.Caption:=a;
end;

end.
Запукаю, нажимаю и делфи начинает ругать меня!
Вадим К

Вадим К (статус: Академик), 28 ноября 2008, 17:49 [#2]:

ок, попробовать вот так
procedure TForm1.Button1Click(Sender: TObject);
var sl:TStringList;
i:integer;
a, x:string;
begin
sl:=TStringList.create;
sl.LoadFromFile('c:\XXX.txt');
for i:=0 to sl.count-1 do begin
x := sl[i]
if x[1] = '*' then a := x;
end;
sl.free;
label1.Caption:=a;
end;
Так уж точно должно работать
З.Ы. Если пишем "ругается" - вседа пишем как!
Галочка "подтверждения прочтения" - вселенское зло.
Ученый

Ученый (статус: 8-ой класс), 28 ноября 2008, 17:59 [#3]:

Все спасибо! Работает!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 23 февраля 2020, 02:06
Выполнено за 0.03 сек.
Рейтинг@Mail.ru