Guten Morgen, Michael!
Das Problem mit den Leerzeichen ist, dass ein Leerzeichen als Textseparator identifiziert wird, so dass ein Link, der ein Leerzeichen enthält, an der Stelle, wo sich das Leerzeichen befindet, abgebrochen wird.
Der zugehörige Programmcode:
Code: Alles auswählen
Function TF_Text.URL_extrahieren ( A_Memo : TMemo ; A_Selstart : integer ) : string; // A_Flag 1:ins Keyword-Blatt 2:in die Suchworte-Liste
var
i, selbeginn , z , k : integer;
txt, s : WideString;
begin
result := '';
txt := UTF8Decode(A_Memo.Text);
selbeginn := A_Selstart;
i := A_Memo.SelStart;
s := '';
repeat
result := s + result;
s := Copy(txt, i, 1);
Dec(i);
until (s <= ' ') or (i < 0);
i := A_Selstart + 1;
s := '';
repeat
result := result + s;
s := Copy(txt, i, 1);
Inc(i);
until (s <= ' ') or (i < 0);
Globl.Wort_putzen( result );
z := Length ( Globl_Prg_Pfad_nur_Pfad + '/MyMemoryDB_Daten') ;
k := Pos('MyMemoryDB_Daten', (result)); // "Pfad bleibt auch nach "Umzug" aufrufbar
if (k > 0) then // Wenn dieser Dateiname im Link vorkommt, dann ist k > 0
begin
result := ( Globl_Prg_Pfad_nur_Pfad + ( copy(result , k , z) ) );
end;
end;
Ich habe keine Idee, wie man dieses Problem lösen könnte.
Mit einer automatisierten digitalen Signatur von Files muss ich mich erst noch ein wenig beschäftigen; aber Danke für diesen Hinweis!
Viele Grüße und ein schönes Wochenende!
Alfons
(Freut mich übrigens, dass Du "MyMemoryDB" nicht schon längst wieder in die Tonne getreten hast )