Zitat von
Delfiano:
- der missglückte Versuch, Lyrics sauber (also komplett) aus Midis zu extrahieren, falls vorhanden
ProcessMarkText sieht bei mir so aus:
Delphi-Quellcode:
function ProcessMarkText(CaptionText, MarkText : string) : string;
begin
if Length(MarkText) > 0 then begin
case MarkText[1] of
'@' : Result := CaptionText;
'\' : Result := #13#10 + Copy(MarkText, 2, pred(Length(MarkText)));
'/','<' : Result := CaptionText + #13#10 + Copy(MarkText, 2, Length(MarkText));
'*' : Result := CaptionText + #13#10 + MarkText + #13#10;
#13 : Result := CaptionText + #13#10;
else
Result := CaptionText + MarkText;
end;
end else begin
Result := CaptionText;
end;
end;
Sofern bei Deinem Delphi bei Lyrics_Memo WordWrap auf true stehen sollte, ändere das bitte auf false, sonst stimmen die Zeilenumbrüche in der erstellten Datei nicht, dito. bei lbLyrics.
Edit:
Durch die unterschiedliche Breite der beiden Memos und eingeschaltetem WordWrap passt der Vergleich in der Routine lbLyricsChange
Delphi-Quellcode:
IF Lyrics_Memo.Lines[Lyrics_Memo.Lines.count-1]<>lbLyrics.Lines[lbLyrics.Lines.count-2]
THEN BEGIN
nicht zwingend, da durch unterschiedliche Zeilenbreiten andere Zeilenumbrüche erfolgen.