endlich
hab’s geschafft
Delphi-Quellcode:
function Standard_Lesen_Laenderkennung(Laenderkennung, Laenderkennung_id:TStrings;Leerzeile:boolean):integer;
begin
Result:= 0;
Try
If Laenderkennung <>NIL then begin
Laenderkennung.Clear;
If Leerzeile then Laenderkennung.Add(' '); // <--- Der Fehler, da muss ein leerzeichen, jetzt gehts
end;
If Laenderkennung_id<>NIL then begin
Laenderkennung_id.Clear;
If Leerzeile then Laenderkennung_id.Add('0');
end;
Danke shmia für deine Bemühungen!