Ich habe die Funktion CompareStrings gefunden.
Ich habe da den ganzen Morgen schon mit rumgespielt, aber es klappt nicht.
Habe schon alle möglichen Kombinationen durch und komme nicht weiter.
Wenn Herr kleiner als Prof ist, dann ein Semikolon, sonst zwei.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var herr, prof: string;
begin
herr := 'Herr';
prof := 'Prof.';
CompareStrings(herr, prof);
end;
procedure TForm1.CompareStrings(const herr, prof: string);
var
result : Integer;
i: Integer;
begin
begin
for i := 0 to Memo1.Lines.Count - 1 do
result := AnsiCompareText(herr , prof);
if result < 0 then
begin
Memo1.Text := Stringreplace(Memo1.Text, herr, 'Herr;' , [rfReplaceAll])
end
end;
for i := 0 to Memo1.Lines.Count - 1 do
result := AnsiCompareText('Herr;', prof);
if result < 0 then
begin
Memo1.Text := Stringreplace(Memo1.Text, 'Herr' , 'Herr;;' , [rfReplaceAll])
end
end;