Работа с текстом

[Валера К]

Всем доброго времени суток! Помогите мне решить пожалуйста вот такую проблему...
У меня есть текстовый документ, как сделать так, что бы при открытии формы первая строка данного документа скопировалась
к примеру в поле "label"
За ранее спасибо

[Базиля]

В событии формы( я так и не понял, форма у тебя главная или нет? От этого зависит в каком событии будешь описывать действия) описываешь действия:
связываешь файл с файловой переменной. Открываешь файл для чтения. Забираешь первую строку в строковую переменную. Значение строковой переменной записываешь в метку. Этого думаю достаточно.

[Валера К]

Форма главная, хотелось бы увидеть как это примерно выглядит в виде кода

[Базиля]

Я вам в скайп напишу, мне немного не удобно сейчас здесь общаться)

[Serge_Bliznykov]

в коде это выглядит примерно так:

procedure TForm1.FormCreate(Sender: TObject);
const
  MyTextFileName = 'C:\temp.txt';
var f :TextFile;
   s : string;
begin
  if FileExists(MyTextFileName) then begin
    AssignFile(f, MyTextFileName);
    Reset(f);
    s := 'файл пуст';
    if not eof(f) then Readln(f, s);
    Label1.Caption := s;
    CloseFile(f);
  end
  else Label1.Caption := 'файл '+MyTextFileName+' не найден!';

end;

[Валера К]

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

в коде это выглядит примерно так:

procedure TForm1.FormCreate(Sender: TObject);
const
  MyTextFileName = 'C:\temp.txt';
var f :TextFile;
   s : string;
begin
  if FileExists(MyTextFileName) then begin
    AssignFile(f, MyTextFileName);
    Reset(f);
    s := 'файл пуст';
    if not eof(f) then Readln(f, s);
    Label1.Caption := s;
    CloseFile(f);
  end
  else Label1.Caption := 'файл '+MyTextFileName+' не найден!';

end;

Serge_Bliznykov спасибо! Данный код действительно читает первую строку текстового файла, но какие изменения надо в нем сделать, что бы он читал допустим 2-ю строку?

[Hacker19_90]

procedure TForm1.FormCreate(Sender: TObject);
const
  MyTextFileName = 'C:\temp.txt';
var 
   f: TextFile;
   s: string;
   i: integer;
begin
    i := 0;
    if FileExists(MyTextFileName) then
    begin
        AssignFile(f, MyTextFileName);
        Reset(f);
        s := 'файл пуст';
        if not eof(f) then
        begin
            Readln(f, s);
            Inc(i);
            if i = <Нужный номер строки> then
                Label1.Caption := s;
         end;
         CloseFile(f);
      end
      else Label1.Caption := 'файл '+MyTextFileName+' не найден!';
end;

[Serge_Bliznykov]

Hacker19_90, браво. отличный и рабочий код.
Я бы только дополнил его - если прочитали нужную строчку - то прерывать цикл (Ваш пример прочитает построчно весь файл. Это, конечно, не ошибка. но зачем нам "мучить" файл и "терзать" процессор - если то, что нам надо, мы уже из файла получили:

        while not eof(f) do
        begin
            Readln(f, s);
            Inc(i);
            if i = <Нужный номер строки> then 
            begin
                Label1.Caption := s;
                Break;
            end; 
         end;
         CloseFile(f);

[Базиля]

Serge_Bliznykov

отличный и рабочий код.

Почему же он рабочий если отсутсвует цикл для пробега по строкам файла?

 if not eof(f) then

сменить на

while not eof (f) do

Очень надеюсь что человек подразумевал цикл, и коим образом описался...

[Serge_Bliznykov]

Сообщение от Базиля

Serge_Bliznykov

Почему же он рабочий если отсутсвует цикл для пробега по строкам файла?

 if not eof(f) then

сменить на

while not eof (f) do

Очень надеюсь что человек подразумевал цикл, и коим образом описался...

ну да, конечно же Вы правы.
А мне минус, я проглядел очевидный ляп...