Fremdes Datenformat einfach lesen in Delphi

[Klaus01]

Du könntest z.B. findComponet verwenden,
damit kannst Du dir die Aufzählung der Edit Componente (edF01, edF02 ..) sparen

Grüße
Klaus

Delphi-Quellcode:

{** KOPF LESEN ****************************************************************}
function TForm1.Lese_Kopf(posi: integer): integer;
var i: integer;
    s, s1, prefix, zeile: string;
begin
  // BEGIN Kopf-Record lesen
  for i := 1 to anzahl_felder_k do 
    begin
      Inc(posi);
      zeile := sl[posi];
      prefix := Copy(zeile,1,2);
      s := Copy(zeile,3,length(zeile));
  
      TEdit(FindComponent('edF' + prefix)).text:=s;
 
      anzahl_tabelle_felder := StrToInt(s);
   end;
   result := posi;
  end;
  // END Kopf-Record lesen
end;
{******************************************************************************}