Matthias Scharwies: formatiert

2019-08-10T06:33:41Z

formatiert

Neue Seite

==Strings als Arrays von Zeichen==
Ganz am Anfang unseres Ganges durch Lazarus haben wir die Beschriftung eines Buttons geändert. Beschriftungen sind Zeichenketten, die aus keinem, einem oder mehreren Zeichen bestehen. Variablen vom Typ <tt>String</tt> können in Lazarus bis zu 255 Zeichen beinhalten.

Eine Variable s vom Typ String wird mit
<source lang='pascal'>
var s : string;
</source>
deklariert. Einer String-Variable kann man, wie wir gesehen haben, einfach einen Wert zuweisen, indem man die Zeichenkette durch einfache Hochkommas eingerahmt auf die rechte Seite des Zuweisungsoperators <tt>:=</tt> schreibt, also etwa
<source lang='pascal'>
s:='Die Antwort ist 42.';
</source>

Man sieht: Neben den eigentlichen Buchstaben können auch Ziffern, Sonderzeichen und Leerzeichen Teil einer solchen Zeichenkette sein. Auf diese einzelnen Zeichen kann man zugreifen ähnlich wie auf die einzelnen Elemente eines Arrays: mit eckigen Klammern, innerhalb deren die Nummer des Zeichens steht: Im Beispiel hätte also <tt>s[1]</tt> den Wert "D", <tt>s[2]</tt> den Wert "i" usw. Die einzelnen Zeichen (engl.: character) haben formal den Typ <tt>char</tt>.

Problematisch wird es, wenn man versucht auf ein Zeichen mit einer Nummer zuzugreifen, die größer ist als die Länge des Strings. Diese Länge spielt eine wichtige Rolle und kann mit der Funktion <tt>length(s)</tt> ermittelt werden.

Das folgende Programm gibt also die Buchstaben des genannten Strings untereinander aus:

<source line highlight="35-37" lang="pascal">
unit lazio_testumgebung;
{$mode objfpc}{$H+}
interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls;

type
{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
s : string;
i : integer;

implementation

{$R *.lfm}
{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
s:='Die Antwort ist 42.';
for i:=1 to length(s)
do Memo1.Lines.Add(s[i]);
end;

end.
</source>

==Einfügen und Löschen von Teilstrings==

{| class ="wikitable toptextcells"
! Befehl
! Wirkung
|-
| delete(stringvariable,position,anzahl) || Der Befehl löscht in der Stringvariable ab der <tt>position</tt> eine bestimmte <tt>anzahl</tt> von Zeichen.
|-
| insert(teilstring,stringvariable,position) || Der Befehl fügt in der Stringvariable ab der <tt>position</tt> den <tt>teilstring</tt> ein.
|-
|}

Das folgende Programm löscht im String "Die Antwort ist 42." den Teil "Antwort" und ersetzt ihn durch "Frage".

<source start="32" line highlight="4,5,7" lang="pascal">
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
s:='Die Antwort ist 42.';
delete(s,5,7);
Memo1.Lines.Add(s);
insert('Frage',s,5);
Memo1.Lines.Add(s);
end;
</source>

==Teilstrings suchen und herauskopieren==

Um nur einen Teil eines Strings zu erhalten, könnte man alles andere weglöschen. Das wäre allerdings sehr umständlich. Die Funktion <tt>copy</tt> ermöglicht das direkte Herauskopieren eines Teilstrings. Umgekehrt kann es von Interesse sein, zu wissen ob und an welcher Position in einem String ein bestimmter Teilstring vorkommt. Diese Information liefert die Funktion <tt>pos</tt>.

{| class ="wikitable toptextcells"
! Befehl
! Wirkung
|-
| copy(stringvariable, position, anzahl)|| Liefert den Teil der <tt>stringvariable</tt> zurück, der ab der <tt>position</tt> steht und <tt>anzahl</tt> Zeichen umfasst.
|-
| pos(teilstring, stringvariable) || Findet die erste Position, ab der der <tt>teilstring</tt> im String vorkommt. Kommt der <tt>teilstring</tt> gar nicht im String vor, liefert die Funktion den Wert 0.
|-
|}

Das folgende Beispiel zeigt, wie die beiden Funktionen verwendet werden können, um den Text zwischen zwei spitzen Klammern aus einem String herauszufinden:

<source line highlight="35-37,39" lang="pascal">
unit lazio_testumgebung;
{$mode objfpc}{$H+}
interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls;

type
{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
s : string;
auf,zu,anzahl : integer;

implementation

{$R *.lfm}
{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
s:='Das Wichtige steht in spitzen <Klammern>';
auf:=pos('<',s);
zu:=pos('>',s);
anzahl:=zu-auf-1;
Memo1.Lines.Add(copy(s,auf+1,anzahl));
end;

end.
</source>

== Groß und Kleinschreibung ==

Zwei Funktionen liefern bei einem gegebenen String den String komplett in Großbuchstaben bzw. in Kleinbuchstaben zurück.

Die Zeile <tt>s:=uppercase('Das ist ein Text)</tt> belegt die Variable <tt>s</tt> also mit dem Wert 'DAS IST EIN TEXT'.

{| class ="wikitable toptextcells"
! Befehl
! Wirkung
|-
| uppercase(stringvariable) || Liefert den String umgewandelt in Großbuchtstaben zurück.
|-
| lowercase(stringvariable) || Liefert den String umgewandelt in Kleinbuchtstaben zurück.
|-
|}

== Einzelzeichen und ihre Ordnungszahl (ASCII-Code) ==

Im Inneren des Computers sind natürlich auch die Zeichen von Strings letztlich als Zahlen abgelegt. Der so genannte ''American Standard Code for Information Interchange'' [http://de.wikipedia.org/wiki/American_Standard_Code_for_Information_Interchange ASCII] ordnet den meisten gebräuchlichen Zeichen eine Zahl zwischen 0 und 255 zu.

Um zwischen der ASCII-Ordnungszahl und den eigentlichen Zeichen hin und her übersetzen zu können, gibt es die beiden Funktionen <tt>ord</tt> und <tt>chr</tt>.

{| class ="wikitable toptextcells"
! Befehl
! Wirkung
|-
| ord(zeichen) || Liefert die Ordnungszahl des gegebenen Zeichens.
|-
| chr(zahl) || Liefert das Zeichen zur gegebenen Ordnungszahl.
|-
|}

Das folgende Programm stellt die Ordnungszahlen der einzelnen Zeichen des gegebenen Strings dar, danach erzeugt es eine zufällige Folge von Großbuchstaben. Dazu muss man wissen, dass die Großbuchstaben (ohne Umlaute) ASCII-Codes zwischen 65 und 91 haben.

<source line highlight="37,42" lang="pascal">
unit lazio_testumgebung;
{$mode objfpc}{$H+}
interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls,LazIOStuff;

type
{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
s : string;
i,zahl : integer;

implementation

{$R *.lfm}
{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
s:='Otto';
for i:=1 to length(s)
do Memo1.Lines.Add(s[i]+' : '+IntToStr(ord(s[i])));

for i:=1 to 20
do begin
zahl:=random(26)+65;
Memo1.Lines.Add(chr(zahl));
end;

end;

end.
</source>

{{Aufgabe|1=
#Schreibe ein Programm, das in einem Text den ach so häufigen Buchstaben 'e' jeweils durch ein 'ä' ersetzt.
#Die verschiedenen Buchstaben kommen in den unterschiedlichen Sprachen statistisch unterschiedlich häufig vor. Schreibe ein Programm, das die unterschiedlichen Buchstaben eines Textes in einer Edit-Komponente zählt und die Zählwerte ausgibt. Groß- und Kleinschreibung sollen dabei nicht beachtet werden.
#Bei der so genannten Cäsar-Verschlüsselung wird jedem Buchstaben des Alphabets ein bestimmter anderer Buchstabe zugeordnet, und zwar z.B. derjenige, der 5 Stellen weiter im Alphabet steht. Aus A wird damit F, aus B wird G usw. Am Ende des Alphabets wird aus Y ein D, aus Z ein E. Schreibe ein Programm, das einen Text Cäsar-verschlüsselt.}}

{{Lazarus-Buch}}

Lazarus/Zeichen (Char) und Zeichenkette (String) - Versionsgeschichte

Matthias Scharwies: formatiert