Replace Text [Source]

Versace · 09.02.2014

Вообщем делать нечего сейчас решил написать мини утилиту для работы с текстом они меняет любое значение(символ текст и т.д на какой вы хотите)

Скриншот:

Сыллка на скачку
Вирус тотала нету т.к в архиве нету исполняющих файлов)

Выложу код тут если кто ленивый:)

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sMemo, sLabel, sEdit,
sButton, sSkinProvider, sSkinManager, sDialogs;

type
TForm1 = class(TForm)
sSkinManager1: TsSkinManager;
sSkinProvider1: TsSkinProvider;
sButton1: TsButton;
sEdit1: TsEdit;
sButton2: TsButton;
sMemo2: TsMemo;
sLabelFX1: TsLabelFX;
sEdit2: TsEdit;
sOpenDialog1: TsOpenDialog;
procedure sButton2Click(Sender: TObject);
procedure sButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type
Potok = class(TThread)
private
{ Private declarations }
protected
procedure savefile;
procedure Execute; override;
end;

var
Form1: TForm1;
accounts : Tstringlist;
i : integer;
savefiles : textfile;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
accounts:=Tstringlist.Create;
end;

procedure TForm1.sButton1Click(Sender: TObject);
begin
sOpenDialog1.Filter:='Текстовые файлы|*.txt';
sOpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
if sOpenDialog1.Execute then
begin
Accounts.Clear;
Accounts.LoadFromFile(sOpenDialog1.FileName);
Form1.sLabelFX1.Caption:='Загружено Строк: '+inttostr(Accounts.Count);
end;
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
potok.Create(false);
Assignfile(savefiles, ExtractFilePath(Application.ExeName)+'Результат.txt');
rewrite(savefiles);
Closefile(savefiles);
end;

procedure Potok.Execute;
begin
for I := 0 to Accounts.Count-1 do

accounts:=StringReplace(accounts,form1.sEdit1.Text,form1.sEdit2.Text,[rfreplaceall]);
form1.sMemo2.Lines.Add(accounts.Text);
Synchronize(savefile);
accounts.Free;
end;

procedure potok.savefile;
begin
append(savefiles);
writeln(savefiles,(trim(accounts.Text)));
closefile(savefiles);
end;

Нажмите, чтобы раскрыть...

SADAMAZAFAKER · 08.02.2014

Отлично спс.Вижу ты норм так разбираешся в Delphi запили канал и выкладывай туда видосы как писать софт у тебя пи**ц сколько будет подписчиков.

๖ۣۣۜGad · 09.02.2014

тэг code для слабаков?

Versace · 09.02.2014

Russia56 сказал: ↑

тэг code для слабаков?
Нажмите, чтобы раскрыть...

обязательно это тут писать?

Amidamaru · 25.11.2015

Минимум кода просто
Использовал StringReplace?

MidHunt · 25.11.2015

notepad++ для слабаков?

B1ackbeard · 25.11.2015

Файл удален

n0ne · 13.12.2015

можно сылку на скачивание так как она удалена пж