Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Файловый тип

Автор: Koshmarick 5.11.2009, 08:40

Доброго времени суток.
Не знаю даже с чего начать smile

. Задача:

Дан текстовый файл, заполненный целыми числами и одномерный массив из 5 целых чисел. Вывести на экран только те числа из файла, которые равны одному из чисел массива.

PS Сильно не ругайтесь. Я не программер, я бухгалтер. Но очень нужно... И если можно то поподробней.
Вообще то я стараюсь решить всё сам, но время очень поджимает. Надеюсь на людскую взаимопомощь.

Автор: ~FoX~ 5.11.2009, 09:41

Вообще то в центр помощи, но сейчаз утро и мне скучно на работе smile

Не совсем понятно...
1. Формат файла
2. Выводить все числа встречающиеся в файле или один раз...

На форме кнопа и мемо:

Код


procedure TForm1.Button1Click(Sender: TObject);
const
  A: array [0..4] of integer = (1,2,3,4,5); //массив твоих чисел
var
  f: TextFile;
  s: string;
  i: integer;
begin
  AssignFile(f, 'c:\1.txt');  //путь указываешь куда надо 
  Reset(f);
  while not EOF(f) do begin
    ReadLn(f, s);
    for i := 0 to 4 do begin
      if  StrToInt(s) = a[i] then Memo1.Lines.Add(s);
    end; //for
  end; //while

  CloseFile(F);
end;

Файл:

Цитата

10
15
9
5
8
4
5
6
7
8
9
10
11
12
13
1
2
3
4
5
6
7
8
9

Автор: Koshmarick 5.11.2009, 09:58

Спасибо.
"Вообще то в центр помощи" это где? А то у меня еще несколько не решенных . А в и-нете хороших учебников не густо .(
PS Не могу найти описание оператора SELECT , и как его "едят" может подскажете?

Автор: Beltar 5.11.2009, 11:31

Select это из SQL, может с Case (множественный выбор) путаешь?

Автор: Данкинг 5.11.2009, 11:38

Koshmarick, центр помощи - это http://forum.vingrad.ru/forum/Vingrad-help-center.html. Что касается Select - найди любую справку по SQL, благо книг по нему сейчас достаточно.

smile

Цитата(Beltar @ 5.11.2009, 11:31

)

Select это из SQL,

Нет, Select - это из FoxPro: выбор области открытия таблицы. smile

Код


Select 5
use base1
Select 10
use base2

Автор: Koshmarick 5.11.2009, 11:43

К сожалению не путаю. Наверно преподаватель что-то попутал ("Задачи на тему «Использование операторов GOTO и SELECT»" но те задачи без select-а я уже решил), задачи то по паскалю. Ну да ладно...

Может еще одну посмотрите...

Дан текстовый файл, заполненный целыми числами (создать в любом текстовом редакторе). Вывести на экран только те из них, порядковый номер которых равен значению числа.

PS. Данкинг, за ссылку спасибо, просто когда я писал твоего ответа еще небыло.

Автор: Данкинг 5.11.2009, 11:50

Цитата(Koshmarick @ 5.11.2009, 11:43

)

("Задачи на тему «Использование операторов GOTO и SELECT»" но те задачи без select-а я уже решил), задачи то по паскалю.

Разве в Паскале есть Select? Это в VB оный есть точно.

Автор: ~FoX~ 5.11.2009, 13:44

Цитата(Koshmarick @ 5.11.2009, 12:43

)

Дан текстовый файл, заполненный целыми числами (создать в любом текстовом редакторе). Вывести на экран только те из них, порядковый номер которых равен значению числа.

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile;
  s: string;
  i: integer;
begin
  AssignFile(f, 'c:\1.txt'); 
  Reset(f);
  i := 1;
  while not EOF(f) do begin
    ReadLn(f, s);
    if  StrToInt(s) = i then Memo1.Lines.Add(s);
    inc(i);
  end; //while
  CloseFile(F);
end;

Цитата(Koshmarick @ 5.11.2009, 12:43

)

Задачи на тему «Использование операторов GOTO и SELECT»

Гмм...вообще то в приличном обществе за это морды бьют...
Нету в паскале SELECT....есть применительно к сокетам, есть в SQL, но в паскале его точно нету...

Автор: THandle 5.11.2009, 15:15

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!