Разделение файла

[Antik163RUS]

Имеем файл, который состоит из 6 равных (кол-во символов) строк. Нужно каждой строке присвоить свою переменную, чтобы в дальнейшем использовать в программе. Помогите.

[puporev]

Что за файл? что за язык? Программисты умные, сами догадаются.
Вот пример работы с текстовым файлом в Паскале.

uses crt;
var f:text;
    s:array[1..6]of string;
    n:integer;
begin
clrscr;
assign(f,'Stroki.txt');
reset(f);
n:=0;
while not eof(f) do
    begin
     n:=n+1;
     readln(f,s[n]);
    end;
write(s[5]);
readln
end.

Создав 6 переменных, можно с ними делать все, что можно делать со строками. Можно и не делать массив, а ввести 6 переменных, типа a,b,c,d,e,g и работать с ними.

[Antik163RUS]

Сообщение от puporev

Что за файл? что за язык? Программисты умные, сами догадаются.
Вот пример работы с текстовым файлом в Паскале.

uses crt;
var f:text;
    s:array[1..6]of string;
    n:integer;
begin
clrscr;
assign(f,'Stroki.txt');
reset(f);
n:=0;
while not eof(f) do
    begin
     n:=n+1;
     readln(f,s[n]);
    end;
write(s[5]);
readln
end.

Создав 6 переменных, можно с ними делать все, что можно делать со строками. Можно и не делать массив, а ввести 6 переменных, типа a,b,c,d,e,g и работать с ними.

Файл текстовый с расширением тхт, язык дельфи.

[puporev]

Ну и что дальше? Вам еще и в Делфи переписать?

[Stilet]

язык дельфи.

Убери uses crt и втюхай код в скажем событие создания формы, получиш в Делфи.

[Antik163RUS]

Сообщение от puporev

Ну и что дальше? Вам еще и в Делфи переписать?

Нет спасибо, в дельфе я уже написал!
А как теперь передать переменные (с присвоенными значениями строк) по нескольим формам, чтобы можно было брать их в других процедурах и функциях?

[puporev]

А не могли бы Вы рассказать, что Вам вообще нужно, ибо то что Вы спрашиваете можно выполнить несколькими способами, взависимости от поставленной цели.

[Antik163RUS]

В текстовом файле хранится несколько, а именно 6 масок, по которым надо будет выбирать файлы. Смысл в чем? Допустим этот файл состоит из 6 строк такого содержания:
1 строка: 1 бочка
2 строка: 2 бочка
....
....
6 строка: 6 бочка.
В 1 бочку наливают воду, во 2-масло, в 3-пиво, в 4-водку, в 5-нефть, в 6-сок! И сколько чего налито и когда, записывается в текстовый файл, допустим 1_2008_07_01_60.тхт. - это значит что в первую бочку налили 60 литров 2008 года 1 июля. Бочки периодически меняются. Допустим мы поменяли 1 и 2 бочки. И получили, что мы выбираем по заданной маске воду, но будет неправильно ибо бочка номер 1 будет наполнена маслом, так как выбор у нас идет по бочке номер раз!
А файл с 6 строками бочек можно будет исправить в любой момент как только поменяли бочки! Программный кож же исправить намного труднее.
Понятно?

[Stilet]

Antik163RUS

А ты в сторону Баз Данных глянуть не хочешь или это очередная контрольная?

[Antik163RUS]

Нет это не очередная контрольная.