Добавление символа в конце строки

[SergiOD]

Здравствуйте!

Имею txt файл в котором строки типа

1; 2; 12; 13; 3
3; 2; 12; 13; 3
6; 2; 12; 34; 3
1; 3; 12; 13; 3

и т.д. строк может быть много

Не могу разобраться как добавить в конце каждой строки символ ;
должно стать

1; 2; 12; 13; 3;

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

1)TStringList+For(простой но не очень надежный метод)
2)Text(текстовый файл)+AssignFile+Reset+While not EoF+ReadLn+(string:=string+';')+Wri teLn+CloseFile(чуточку сложнее и больше кода, но надежнее)
3)через TStream тоже можно, но писать не буду, лень(просто сказал чтоб знали что способ такой есть)

ЗЫ: выберите метод, напишу к нему код(кстати второй метод подразумевает создание временного файла)

[Человек_Борща]

Просто:

var
  s2,s1:string;
begin
s1:='строка';  //Исходная строка
s2:=';';        //знак вставки
//Вставляем знак в конец строки. +1 потому что lenght вернуло с 0, а строки начинаются 1. По этому +1.
Insert(s2,s1,Length(s1)+1);
//Результат "Строка;"
ShowMessage(s1);
end;

TstringList + цикл For .. to .. do и будет вам счастье!

__ДОБАВЛЕНО__

Ну или так=))

procedure TForm1.sButton2Click(Sender: TObject);
{-------------------------------------------------------------------------------
  Функция: insert1
  Автор:    ArhangeL
  Дата:  2011.03.09
  Входные параметры: st:string
  Результат:    string
  Замена стандартному insert т.к. не даёт установить позицию нового символа в цикле,
  потому что нельзя представить константу как переменную var.
-------------------------------------------------------------------------------}
function insert1(st:string):string;
const
 znak=';';
var
 d:integer;
begin
d:=Length(st)+1; //уст. длинну
insert(znak,st,d);    //втыкаем знак
Result:=st;   //возвращаемся
end;

var
  Ts:TStringList;
  i:Integer;
begin
  Ts:=TStringList.Create;
  try
  Ts.LoadFromFile(ExtractFilePath(ParamStr(0))+'Strings.txt');
  for i:=0 to Ts.Count -1 do
  begin
  ListBox1.Items.Add(insert1(Ts.Strings[i]));
  end;
  finally
   Ts.Free;
  end;
end;

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

а если файл большой то улетит далеко и надолго

procedure DoIt(fn:string);
var f,f1:Text;
     s:string;
begin
 AssignFile(f,fn);
 AssignFile(f1,fn+'.bak');
 Reset(f);
 Rewrite(f1);
 while not EoF(f) do
  begin
   ReadLn(f,s);
   s:=s+';';
   WriteLn(f1,s);
  end;
 CloseFile(f);
 CloseFile(f1);
 MoveFileEx(PChar(fn),PChar(fn+'.bak'),MOVEFILE_REPLACE_EXISTING);
end;

примерно так.

Просто:

а зачем сие, если просто это

s:=s+';';

?

[SergiOD]

Сообщение от Пепел Феникса

2)Text(текстовый файл)+AssignFile+Reset+While not EoF+ReadLn+(string:=string+';')+Wri teLn+CloseFile(чуточку сложнее и больше кода, но надежнее)


ЗЫ: выберите метод, напишу к нему код(кстати второй метод подразумевает создание временного файла)

Выбрал, прошу помощи. о времнным файлом уже догадался, т.к. пытался читать и писать в один файл получал чистый файл.

[Человек_Борща]

ахаха а про это я совсем забыл, видмо надо избавлять от привычки делать из мухи слона=)

[SergiOD]

Ругается на строку:

MoveFile(PChar(fn),PChar(fn+'.bak') ,MOVEFILE_REPLACE_EXISTING);
[Error] ... Too many actual parameters

Заменю на
... DeleteFile();
... Rename();


Но на этом варианте (procedure DoIt(fn:string) остановлюсь, Спасибо!

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

ой, там MoveFileEx надо было.
просто я сначало хотел MoveFile поставить, потому и поставил неверно, сейчас исправлю.

в принципе заменили вы все верно