Hallo,
ich war lange bei TurboPascal geblieben, da meine Programmieraufgaben
immer nur auf "Text" basierten.
Ich habe nun ein einfaches Programm geschrieben, als Vorversuch für die eigentliche Aufgabe,
die später zeilenweise zwei Textdateien verarbeiten und Resultate in eine dritte Textdatei speichern soll.
Kann mir jemand sagen, weshalb ein E/A-Fehlermeldung nach Klick auf Button4 den Ablauf abbricht?
Danke
Martello
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
inn1, inn2,res: text;
zeile: string;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Opendialog1.Execute;
assignfile(inn1,opendialog1.filename);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Opendialog1.Execute;
assignfile(inn2,opendialog1.filename);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
assignfile(res,edit1.Text);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
repeat
readln(inn1,zeile);
writeln(res,zeile);
readln(inn2,zeile);
writeln(res,zeile);
until eof(inn1);
end;
end. |
DeddyH