Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Чтение из текстового файла [D6, WinXP]

Anar © (2002-09-30 14:36:00)
Как прочитать из текстового файла строку до какого-то или после какого-нибудь символа?
Например, в текстовом файле строка:

D:\WinXP\System|Системная папка.

Как сделать допустим так, чтобы при нажатии на Button1 в Label1 писалось бы D:\WinXP\System а в Label2 - Системная папка? Т.е. как прочитать текст до и после символа "|"
И ещё: Процедура ReadLn читает из файла первую строку. А как считать из текстового файла вторую строку?

Помогите прошу!

France (2002-09-30 15:00:00) [1]
> Anar © (30.09.02 14:49)
вот... надеюсь так лучше будет. кинь на форму кнопку и проведи нижеприведенный эксперимент.

procedure TForm1.Button1Click(Sender: TObject);
var
s, s1 ,s2:string;
begin
s:="First*Second"; // исходная строка
// "*" здесь разделитель
s1:=Copy(s,1,pos("*",s)-1); // первая часть
s2:=Copy(s,pos("*",s)+1,Length(s)-pos("*",s)); // вторая часть
ShowMessage(s1+#13+s2); // это показ результата (для наглядности)
end;

MBo (2002-09-30 14:53:00) [2]
Это относится к самым основам Паскаля, надо прочитать в книге и в хелпе. Названия процедур даны, жми F1

Anar (2002-09-30 14:49:00) [3]
А можно по конкретнее. я что-то не очень понял. Объясниет поподробнее, плиз!

France (2002-09-30 14:47:00) [4]
можно что-то вроде такого

var
str : string;
s : TStringList;
begin
s:=TstringList.Create;
s.LoadFromFile(имя файла);
str:=s[номер строки]; // в str нужная нам строка
end;

ну дальше первый пункт, который посоветовал МВо.

MBo (2002-09-30 14:37:00) [5]
1. C помощью Pos и Copy
2. Еще раз Readln ;)
( while not Eof(FTextFile) )

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »