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