jetzt wollte ich mir einen kleinen luxus in meinem programm gönnen und nun wird dit zu einem soooooooo großen problem.
na toll
Delphi-Quellcode:
procedure PLZ1Click(Sender: TObject);
.
.
.
var
sl: TStringList;
plz: TStringList;
Ort: TstringList;
implementation
.
.
.
procedure TSachverhaltForm.PLZ1Click(Sender: TObject);
var i:integer;
begin
plz :=TstringList.create;
Ort :=TStringList.create;
sl :=TstringList.create;
sl.LoadFromFile('PLZ.txt');
for i:= 0 to sl.count -1 do
begin
plz.add(copy(sl[i],1,5));
ort.add(copy(sl[i],6,length(sl[i])));
end;
sl.free
EditTPlz.Text :=plz[ort.indexof(EditTOrt.text)];
plz.free;
ort.free;
end;
er gibt mir bei editTPLZ.Text :=plz....
den fehler aus Operator oder Semikolon fehlt.
warum das ?