Hi,
wie kann man aus
asd bla
das machen:
asd
bla
?
Ich habe bereits zu dieser Aufspaltung diesen Code:
Delphi-Quellcode:
procedure TLexer.ScanLine(s : String);
var i : Integer;
begin
i := Pos(s, ' ');
if s[i + 1] = ' ' then
WriteLn('Mehrere Leerzeichen')
else
WriteLn('Ein Leerzeichen');
end;
Der Code durchsucht nach Leerzichen und überprüft, ob mehrere Leerzeichen vorhanden sind, da nicht jedes Leerzeichen gleich eine neue Zeile sein soll, sondern z.B. zwei Leerzeichen (direkt hintereinander) nur eine neue Zeile ergeben sollen. Mein Problem ist jetzt, das Ausgeben von "asd" und "bla" (soll wie oben aussehen). Wie könnte man dies lösen ?