|
Вопрос # 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]:
Все спасибо! Работает!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
