Помогите с файлами

[zzzzz]

Помогире пожалуйста написать программу в Delphi с файлами. Задание: создать текстовый файл для хранения списка работников предлриятия так, чтобы можно было добавлять новых, и удалять уволившися. С символами(char) я написал такую прграмму, переделать в строки не смог, а 1 символ это не фамилия.

[pu4koff]

1 строка - 1 сотрудник и у textfile readln и writeln

[zzzzz]

Это добавить, а удалить потом как????? Добавлять -я добавлю.

[pu4koff]

если делфи, то грузишь в TStrings и юзаешь LoadFromFile / SaveToFile

[zzzzz]

А можно пожалуйста с этого места поподробнее? Прсто я с TString ещё не имел дело!!! Пожалуйста.

[pu4koff]

var
  s: TStrings;
begin
  s := TStringList.Create;
  s.LoadFromFile('C:\bugoga.txt');             // загружаем из файла
  s.Add('йа креветко');                           // добавляем в конец строку
  s.Insert(0,'аффтар жжот');                   // вставляем первой строкой
  s.Delete(1);                                        // удаляем вторую строку
  s.SaveToFile('C:\bugoga.txt');                // сохраняем в файл
  s.Free;                 
end;

если содержимое надо выводить на экран, то можно сразу TMemo использовать

[zzzzz]

Сейчас попробую, спасибо.

[zzzzz]

В принципе всё работает, только ругается на "memo1.Lines.Add(s);" пишет что типы string и Tstrings не совместимы!

[strannik]

попробуй так:
var
n, b : integer;
...
begin
...
после открытия файла делай:
b:=s.Count-1;
for n:=0 to b do
memo1.Lines.Add(s.Strings[n]);
...
end;

[pu4koff]

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

В принципе всё работает, только ругается на "memo1.Lines.Add(s);" пишет что типы string и Tstrings не совместимы!

Блин... у мемо вапще-то Lines: TStrings... это я к чему... а почему бы в моем примере не заменить s на Memo.Lines?