Thema: Delphi CSV anpassen

Einzelnen Beitrag anzeigen

julchen

Registriert seit: 20. Mär 2008
115 Beiträge
 
Delphi 10.3 Rio
 
#1

CSV anpassen

  Alt 15. Jan 2021, 22:15
Hallo,

Ich habe eine Liste, die ich nach dem Schema anpassen möchte:
Anrede;Titel;Titel;Nachname;Vorname;mit

Die Liste ist so aufgebaut:
Herr Mustermann mit
Herr Mustermann, Max mit
Herr Dr. Mustermann mit
Herr Dr. Mustermann, Max mit
Herr Prof. Dr. Mustermann mit
Herr Prof. Dr. Mustermann, Max mit

Das Semikolon nach Herr bekomme ich hin mit StringReplace.

Nach Prof. wollte ich mit pos und insert das Semikolon einfügen.
Funktioniert aber nicht.
Was mache ich da falsch?
Code:
var
  s1, s2:string;
  i: integer;
  pos1: integer;

begin
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
  s1 := Memo1.lines[i];
  pos1 := pos('Prof.', s1, pos1 + 1 );
  if pos1 <> 0 then
  begin
   Insert(';' , s1 , pos1);
  end;
VG, Julia
Kollegin: Am Wochenende wird mein PC immer langsamer! Liegt das am Strom?
  Mit Zitat antworten Zitat