Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var rliste :TStringList;
i,i_rec: integer;
begin
rliste := TStringList.Create;
rliste.LoadFromFile('c:\test.txt');
i_arr:= -1;
i_rec:= -1;
for i:= 0 to rliste.Count -1 do
begin
If not (i_rec+2 > rliste.Count) then
begin
i_rec := i_rec + 1;
if (rliste.Strings[i_rec]= 'stelle') then
begin
i_rec := i_rec + 1;
i_arr := i_arr +1;
setlength(absatz_edit,length(absatz_edit)+1);
absatz_edit[i_arr].zeile := TStringList.Create;
absatz_edit[i_arr].zeile.Add(rliste.Strings[i_rec]);
i_rec := i_rec + 1;
setlength(absatz_mem,length(absatz_mem)+1);
absatz_mem[i_arr].zeile := TStringList.Create;
absatz_mem[i_arr].zeile.Add(rliste.strings[i_rec]);
end else begin
absatz_mem[i_arr].zeile.Append(rliste.Strings[i_rec]);
end;
end;
end;
memo1.text:= absatz_mem[0].zeile.Text;
edit1.Text := absatz_edit[0].zeile.Text;
showmessage(absatz_edit[0].zeile.Text+'1');
// rliste.Free;
end;
Hallo durch eure Hilfe bin ich ein gutes Stück wieter gekommen nur hier ist was was ich nicht verstehe. Wenn ich dies hier ausführe liest er alles korrekt ein aber in meinem edit feld steht das ausgelesene zb.: EDVII mit zwei Betrag strichen wieso?
Um Hilfe wird dringends gebeten - Danke Manu
