Файл
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'; {Чтоб это значение вводил пользователь через Edit1}
A[22] := '32'; {Чтоб это значение вводил пользователь через Edit2}
S[17] := A;
S.SaveToFile(AFileName);
Finally
S.Free;
End;
end;
Вопрос такой: Как мне Сделать так что б пользователь вводил заменимые символы через Edit1.Text ?
(Отрывок из кода) A[21] :=Edit1.Text; ?За ранее благодарен!
|