Сравнение файлов

[SVadiks]

Здравствуйте, Ребят подкиньте идею как можно реализовать данную програмку:
Дан текстовый файл. Его строка пишется во второй файл, ЕСЛИ она начинается с такой буквы, с которой еще не начинались строки, идущие перед ней.

Пример как должены выглядеть файлы:
1.txt 2.txt
мама мама
мыла раму
раму

[danekne]

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

[SVadiks]

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

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

хм... спасибо сейчас попробую

[Serge_Bliznykov]

создаешь массив символов, куда заносишь букву с которой строка начинается, если еще в массиве такой буквы нет.

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

var
   myLetters : set of char;
...
begin
  myLetters := [];
  ... открыть файл f
  while Not Eof(f) do begin
    Readln(s);
    if s[i] not in myLetters then begin 
         пишем строчку s -> во второй файл
         Include(myLetters, s[i]); {запоминаем, что такая буква была}
    end;
end;
....

[SVadiks]

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

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

var
   myLetters : set of char;
...
begin
  myLetters := [];
  ... открыть файл f
  while Not Eof(f) do begin
    Readln(s);
    if s[i] not in myLetters then begin 
         пишем строчку s -> во второй файл
         Include(myLetters, s[i]); {запоминаем, что такая буква была}
    end;
end;
....

А скажите пожалуйста s[i] я так понимаю это массив? и какого он типа?

[danekne]

S - это тип string

[Serge_Bliznykov]

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

S - это тип string

А скажите пожалуйста s[i] я так понимаю это массив? и какого он типа?

danekne, абсолютно прав. Дело в том, что строка в Pascal (а потом и в Delphi - по наследию) представляется как array[1..255] of char - т.е. как массив байт. Поэтому к любому символу строки можно обратиться непосредственно по его номеру (индексу): s[i] - это i-й элемент строки s

К слову, в моём коде это же ЯВНАЯ описка.
Нас же интересует ПЕРВЫЙ символ строки.
поэтому правильно так:

if s[1] not in myLetters then begin 
         пишем строчку s -> во второй файл
         Include(myLetters, s[1]); {запоминаем, что такая буква была}
    end;

p.s. а немногие, наверное, знают, что в том Pascal, что придумал Н.Вирт - не было типа данных string... отсюда и array[..] of char

[SVadiks]

Спасибо, помогли в трудную минуту