Текстовые файлы в визуальном delphi

[Olgasaf]

Буду признательна, если поможете: (с использованием компонентов)

Сформировать текстовый файл, содержащий сведения о студентах (фамилия, имя, отчество, оценка_1, оценка_2, оценка_3, размер стипендии). Найти фамилии и имена студентов, получивших по второму экзамену тройку.

[Sciv]

с использованием компонентов

Каких именно компонентов? Или все-равно?

сведения о студентах (фамилия, имя, отчество, оценка_1, оценка_2, оценка_3, размер стипендии)

через структуру типа Record или просто так? Списки использовать можно или нет?

[phomm]

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

[Serge_Bliznykov]

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

через структуру типа Record или просто так? Списки использовать можно или нет?

позволю себе ответить Вам...

можно. и структуры (они же записи, они же record) можно использовать. и динамические списки можно организовать.
Только вопрос - а зачем это всё в данном случае?
Читаем текстовый файл. (я бы через TStrignList загрузил его методом LoadFromFile)
Проходим построчно, разбираем строку (парсим) на отдельные элементы.
Проверяем вторую оценку, если она = 3, выводим данные текущего студента (куда угодно, я бы вывел в Memo).
всё.


p.s.
1-е. делов, тут, при наличии текстового файла, минут на 20...
2-е. на форуме были аналогичные задачи (парсить текстовый файл с записями, обрабатывать, создавать типизированный файл и т.п.). я точно помню, что я тут на форуме уже писал подобный код, т.е. поиск может помочь...

[Olgasaf]

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

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

куда именно вам можно написать? там обсудим подробности. у меня 9 задач

[Olgasaf]

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

Читаем текстовый файл. (я бы через TStrignList загрузил его методом LoadFromFile)
Проходим построчно, разбираем строку (парсим) на отдельные элементы.
Проверяем вторую оценку, если она = 3, выводим данные текущего студента (куда угодно, я бы вывел в Memo).
всё.

вот нужна такая программа, только без TStrignList.
Использовать только Memo, edit, label

[Serge_Bliznykov]

Olgasaf, слева, под ником phomm есть icq и skype - вот туда и можно писать...
а ещё, можете свои контакты для связи указать, с вами и свяжутся...

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

вот нужна такая программа, только без TStrignList.

ну, можно обойтись и стандартным

var f : TextFile;
     s : string;
begin
  AssignFile(f, 'ИмяВашегоTxtФайла.txt');
  Reset(f);
  while Not eof(f) do begin
     ReadLn(f, s);
     
     // тут разбираете строку s, проверяете оценку, если оценка равна 3 - пишете в memo
     if GetSecondMark(s)=3 then
         Memo1.Lines.Append(s);
  end;
  CloseFile(f);

это, по сути - ВСЯ ваша программа!

[Olgasaf]

,

это, по сути - ВСЯ ваша программа!

текстовый файл нужно сформировать, а только потом прочитать из созданного данные...и вывести фамилию и имя

[Serge_Bliznykov]

текстовый файл нужно сформировать

это в программе, что ли?...
Это чрезывачайно просто алгоритмически, но весьма и весьма неоднозначно в плане интерфейса.

Вот, допустим, Вы можете формировать программу буквально силой своего воображения. Как Вы опишете программу, которая формирует текстовый файл?
(кстати, самый простой, хотя, конечно, далеко не самый надёжный и лучший способ - это заполнить ПРАВИЛЬНО Memo, потом по нажатию кнопки "Сохранить" на форме одной командой записать данные в текстовый файл:

procedure TForm1.btSaveMemoClick(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('ИмяФайла.txt');
end;

хотя, я бы предложил Вам заполнять Фамилию Имя и оценки в разных, специально предназначенных (созданных на форме) отдельных полях. По кнопке записать - писал эти данные в файл...
Разберетесь?..

[Olgasaf]

procedure TForm1.Button1Click(Sender: TObject);
var
f:textfile;
Familia,Imya,Otchestvo:string;
ot1,ot2,ot3,step:integer;
begin
assignfile(f,'text.txt');
rewrite(f);
Familia:=edit1.text;
Imya:=edit2.text;
Otchestvo:=edit3.text;
ot1:=edit4.text;
ot2:=edit5.text;
ot3:=edit6.text;
step:=edit7.text;
writeln(f,Familia);
writeln(f,Imya);
writeln(f,Otchestvo);
writeln(f,ot1);
writeln(f,ot2);
writeln(f,ot3);
writeln(f,step);
writeln(f);
closefile(f);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
f:textfile;
Familia,Imya,Otchestvo:string; ot1,ot2,ot3,step:integer;
begin
assignfile(f,'text.txt');
reset(f);
while not eof(f) do begin
readln(f,Familia);
readln(f,Imya);
readln(f,Otchestvo);
readln(f,ot1);
readln(f,ot2);
readln(f);
readln(f);
readln(f);
if ot2='3' then
listbox1.Items.Add(familia+' '+Imya);
end;
closefile(f);

end;

end.

как то так, но она не работает



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.