Fehler: in 000nav.txt ist nicht "lektionen_str.php" aufgeführt!
var c: char;Zeichen werden durch den ASCII-Zeichensatz in einer Breite von 8 Bit festgelegt:
var s: string;
procedure TForm1.Button2Click(Sender: TObject); var s1, s2, s3, s4, s5, s6, s7, su: string; n1, n2, k: integer; c: char; begin s1 := 'Justin'; s2 :='Timberlake'; n1 := length(s1); n2 := length(s2); showmessage('a) "' + s1 + '" hat ' + inttostr(n1) + ' Buchstaben'); showmessage('b) "' + s2 + '" hat ' + inttostr(n2) + ' Buchstaben'); su := s1 + ' ' + s2; showmessage('c) ' + su); s3 := copy(su,1,n1); showmessage('d) Die ersten ' + inttostr(n1) + ' Buchstaben von "' + su + '" sind:"' + s3 + '"'); s4 := copy(su,12,3); showmessage('e) Die 3 Zeichen ab der 12. Stelle von "' + su + '" sind: "' + s4); s5 := copy(su,7,length(su)- 7); showmessage('f) ' + s5); s6 := copy(su,7,length(su)- 6); showmessage('g)' + s6); s7 := copy(su,7,1000); // als Test showmessage('h)' + s7); //Test ist erlaubt. Es werden nur die restlichen Zeichen erfasst. for k := 1 to length(s1) do Begin c := s1[k]; showmessage('i) ' + c); End; //c := s1[1000]; // Unbedingt zu vermeiden: Unzulässiger Zugriff // // Manchmal krachts, manchmal geht's scheinbar gut. end;Beispiel 2: (Programm: 2Schritt)
procedure TForm1.Button2Click(Sender: TObject); var s, s1, s2: string; n: integer; begin s := edit1.text; n := pos(' ',s); if n = 0 then showmessage('Es ist nur ein Wort angegeben.') else Begin s1 := copy(s,1,n-1); s2 := copy(s,n+1,length(s) - n); edit2.text := s1; edit3.text := s2; End; end;