Запись строки в файл

[SL1CK]

Нужно установить указатель в текстовом файле на определенное место и вставить туда строку:

например файл такого содержания:
...
begin
S[0]:=' ';
S[1]:='|';
S[2]:=' ';
end.

и мне нужно вставить строку там где "|"

Помогите кто знает как это сделать, желательно с примером..

[Altera]

Как файл может быть ТАКОГО содержания?

begin
S[0]:=' ';
S[1]:='|';
S[2]:=' ';
end.

Покажи мне такой файл.

Может у тебя файл выглядит вот так:

Первая строка
Вторая строка
Третяя строка

И вы хотите знать, как заменить вторую строку?

var
someFile: tStringList;
someStr: string;
begin
   someFile := tStringList.Create;
   someFile.LoadFromFile('D:\domeFile.txt');
   someFile.Strings[1] := someStr;
   someFile.SaveToFile('D:\domeFile.txt');
   someFile.Free;
end;

Если это не то, что вы хотели, то опишите задачу по-подробней!

[SL1CK]

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

Как файл может быть ТАКОГО содержания?

begin
S[0]:=' ';
S[1]:='|';
S[2]:=' ';
end.

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

вобщем и этот способ уже подойдет, Спасибо!

[Пепел Феникса]

грузите в TStringList делайте что хотите а потом сохраняйте обратно.