Allerdings - tut mir leid.
Musst du denn das Semikolon verwenden? Wenn du auf Komma umsteigst, dann kannst du so arbeiten:
Delphi-Quellcode:
function TForm_Kundenhinzufuegen.NeueZeile: string;
var
sl: TStringList;
begin
sl := TStringList.Create;
sl.Add(E_Firma.Text);
...
Result := sl.CommaText;
sl.Free;
end;
Ich würde dir das empfehlen, da es eigentlich ein Standard ist, den auch andere Programme sehr gut verarbeiten können.
Andernfalls kannst du dir vielleicht erstmal so helfen:
Delphi-Quellcode:
function TForm_Kundenhinzufuegen.NeueZeile: string;
var
sl: TStringList;
begin
sl := TStringList.Create;
sl.Add(E_Firma.Text);
...
Result := StringReplace(sl.CommaText, ',', ';', [rfReplaceAll]);
sl.Free;
end;
Grüße vom marabu