Delphi-Quellcode:
type
listenarray = record
zeile:TStringlist;
end;
TForm1 = class(TForm)
Button3: TButton;
Button2: TButton;
Button1: TButton;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn4: TBitBtn;
Edit1: TEdit;
BitBtn3: TBitBtn;
memo1: TMemo;
ListBox1: TListBox;
BitBtn5: TBitBtn;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
absatz_mem: array of listenarray;
absatz_edit: array of listenarray;
i_mem: integer;
i_arr: integer;
und meine externes file schaut folgt aus:
stelle
EDV
verschiedene Tätigkeiten im EDV - Bereich
Reparatur von Hardware
User Helpline
stelle
idistelle
verschiedene Tätigkeiten im EDV - Bereich
Reparatur von Hardware
User Helpline
rt
re
er
er
er
werrtwe
r
ds
dsf
sdfa
d
asdf
sdfs
stelle
praktikant
verschiedene Tätigkeiten im EDV - Bereich
Reparatur von Hardware
User Helplinegfgf
reicht das??
Mfg
Manu