В текстовом файле расположено много строк, все строки разной длины. Нужен алгоритм как сделать:
- В edit1 указываю число: Сколько Удалить символов - с начала строки.
- В edit2 указываю число: Сколько Удалить символов - с конца строки.
- Нажимаю кнопку и программа Обрезает все строки, в файле (1.txt), с начала и с конца. И сохраняет результат в файл 2.txt.
Пробовала переделать функцию с пробелами но опыта не достаточно. Может кто подскажет ?.
function Split(Str: String): String;
var
I: Integer;
begin
I := 1;
while Str[1] in [' ',',','.',#13] do //удаление пробелов в начале
Delete(Str, 1, 1);
while I <= Length(Str) do
begin
if Str[I] in [' ',',','.',#13] then
begin
while ((Str[I+1] in [' ',',','.',#13]) or (Length(Str) = I)) and
(Length(Str) >= I) do
//удаление пробелы между словами и в конце
Delete(Str, I, 1);
Inc(I);
end;
end;
Result := Str;
end;