Question

delphi 在文本文件每行添加字符串??????????????????????（非计算机专业还有这么复杂的文本操作题？？）

解决后再给50分。。。。。。。。。
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
要求字符串来自一个文本文件A，A中字符串有3行，第一行aaa第二行bbb，第三行ccc，第四行ddd，另一个文本文件B也有4行，第一行111第二行222，第三行333，第四行444，现要求A中的每行字符串分别添加到B文件的每行的末尾，变成：
111aaa
222aaa
333aaa
444aaa
111bbb
222bbb
333bbb
444bbb
111ccc
222ccc
333ccc
444ccc
111ddd
222ddd
333ddd
444ddd
就这些了，希望能把具体的代码贴出来，能把思路说一下也行。

Answer 1

把文件中的各行，读取到数组中。
arry1,arry2: array [0..4095] of string;

procedure aryMul;
var
i,j: integer;
s1,s2: string;
begin
for i:=0 to 4095 do
for j:=0 to 4095 do
begin
s1 := arry1[j];
s2 := arry2[i];
if s1='' then break;
if s2='' then exit;
//将s2+s1 写入文件，代码自写
end;
end;

Answer 2

var
A: TStrings;
B: TStrings;
i,j: Integer;
R: TStrings;
begin
A := TStringList.Create;
B := TStringList.Create;
R := TStringList.Create;
A.LoadFromFile('A.txt');
B.LoadFromFile('B.txt');
for i := 0 to A.Count - 1 do
begin
for j := 0 to B.Count - 1 do
begin
R.Add(A[i]+B[j]);
end;
end;
end;

Answer 3

你可以向这个人定向求助。“a_zhu13 ”

追问

嗯 我试试。