Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

Чтение из текстового файла   Найти похожие ветки 

 
Anar   (2002-09-30 14:36) [0]

Как прочитать из текстового файла строку до какого-то или после какого-нибудь символа?
Например, в текстовом файле строка:

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

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

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


 
MBo   (2002-09-30 14:37) [1]

1. C помощью Pos и Copy
2. Еще раз Readln ;)
( while not Eof(FTextFile) )


 
France   (2002-09-30 14:47) [2]

можно что-то вроде такого

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

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


 
Anar   (2002-09-30 14:49) [3]

А можно по конкретнее. я что-то не очень понял. Объясниет поподробнее, плиз!


 
MBo   (2002-09-30 14:53) [4]

Это относится к самым основам Паскаля, надо прочитать в книге и в хелпе. Названия процедур даны, жми F1


 
France   (2002-09-30 15:00) [5]

> 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;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.037 c
1-31685
Cobalt
2002-09-27 18:55
2002.10.10
Как выйти из оператора case?


4-32098
vaa
2002-08-25 09:36
2002.10.10
winapi


4-32079
Константин
2002-08-23 10:16
2002.10.10
Получить иконку из Трея для заданного приложения????


1-31847
Ahmad
2002-09-25 07:11
2002.10.10
Шестнадцатиричное в десятичное...


14-31943
Николай Быков
2002-09-12 19:01
2002.10.10
Как правильно пить?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский