var
I:Integer;
S:String;
begin
if OpenDialog1.Execute then
begin
Memo2.Lines.Clear;
Memo2.Lines.Add(‘procedure TForm1.toProcDfmPasS;’);
Memo2.Lines.Add(‘var’);
Memo2.Lines.Add(‘TS:TStrings;’);
Memo2.Lines.Add(‘Begin’);
Memo2.Lines.Add(‘TS:=TStringList.Create;’);
Memo2.Lines.Add(’ try’);
Memo2.Lines.Add(’ TS.clear;‘);
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
for I := 0 to Memo1.Lines.Count-1 do
begin
S:=Memo1.Lines[I];
S:=Quotedstr(S);
S:=’ TS.ADD(‘+S+’);‘;
Memo2.Lines.add(S);
end;
memo2.Lines.Add(‘TS.SaveToFile(’+QuotedStr(‘D:\unit2.pas’)+’);');
memo2.Lines.Add(‘finally’);
memo2.Lines.Add(‘TS.Free;’);
memo2.Lines.Add(‘end;’);
memo2.Lines.Add(‘end;’);
memo2.Lines.SaveToFile(‘D:\procedure.txt’);
end;
end;