[Wipahacker]

Как из файла прочитать 18-ю строку, а в ней 21-й и 22-й символы?

[Thrasher]

Код:

Var 
f:TextFile;
S:String;
S1,S2:Char;
begin
AssignFile(F,'Text.txt');
reset(f);
for I:=1 to 18 do
 readln(f,S);
S1:=S[21];
S2:=S[22];
CloseFile(F);
ShowMessage('Первый символ '+S1+#13+' Второй символ '+S2);
end;

[Wipahacker]

Добрый день!

Вот как прочитать мне стало ясно, а вот как сохранить уже все перепробовал, прощу помощи.

Сохранение файла…
Перезаписать в 18 строке 21 и 22 символы на ”31” и ”32”

[Thrasher]

Используй TStringList.
Там есть методы LoadFromFile и SaveToFile. Если что не понятно, то пиши.

[Wipahacker]

Странно много документаций по этому классу, но то, что мне надо я не найду.

[lmikle]

Где-то так:

Код:

var
  S : TStringList;
  A : String;
begin
  S := TStringList.Create;
  Try
    S.LoadFromFile(AFileName); // В переменной AFileName - полное имя файла
    If S.Count < 18 Then Raise Exception.Create('Строк меньше чем 18');
    If Length(S[17]) < 22 Then Raise Exception.Create('В строке 18  меньше чем 22 символа');
    A := S[17]; // Нумерация строк идет с 0
    A[21] := '31';
    A[22] := '32';
    S[17] := A;
    S.SaveToFile(AFileName);
  Finally
    S.Free;
  End;
end;