Abb. 1.01 Test Software
In diesem Artikel möchte ich dir beschreiben wie du eigene Units und Klassen nutzen kannst und diese aus einer anderen Unit aufrufst. Das Auslagern von Funktionen und Prozeduren ist bei größeren Programmen wichtig, da diese Realitätsnah programmiert werden sollen. Hier kann es zum Beispiel für einen Verleih von Autos Klassen für die Erstellung von PDF Rechnungen geben oder für die Datenbank Abfrage. Zur besseren Übersicht nutzen wir allerdings das Form1 ohne PopUp Forms für die Benutzeroberfläche. Unsere Software würde ohne eine Auslagerung von Quellcode sehr unübersichtlich werden. Realitätsnah heißt bei einer Programmierung. Eine Klasse Datenbanken sollte nur Zugriffe auf Datenbanken managen, aber keine PDF Rechnungen erstellen.
Du kannst ein Zeichen oder auch ein Wort durch die Funktion stringreplace() ersetzen. Dieser Befehl ist wie folgt aufgebaut:
Quellcode:
<code>stringreplace(stringEingabe, word1, word2, [rfReplaceAll, rfIgnoreCase]);</code>
Wir möchten eine Benutzeroberfläche entwickeln in der wir einen beliebigen String eingeben können und in diesem String X beliebige Zeichen und Wörter ersetzen. In Abbildung 1.00 String Replace siehst du eine GUI mit 4 Editfeldern für die Eingabe und Ausgabe. Das Editfeld unter dem Label mit der Caption String Eingabe trägt den Namen EdtEingabe. Das Editfeld unter dem Label mit der Caption Zu ersetzendes Wort trägt den Namen EdtErsetzendesWort. Das Editfeld unter dem Label mit der Beschriftung Ersetzen durch trägt den Namen EdtErsetzenDurch. Das Editfeld unter dem Label mit dem Namen String Ergebnis trägt den Namen EdtStringErgebnis. Der Button trägt den Namen BtnErsetzen. Nachfolgend findest du nun den Quelltext für das Austauschen der Zeichen und Wörter. Die Prozedure ist eine in der Button Komponenten gespeicherten ONClick() Ereignis.
Quelltext:
procedure TForm1.BtnErsetzenClick(Sender: TObject);
var
stringEingabe : string;
word1, word2 : string;
stringErgebnis : string;
begin
stringEingabe:= EdtEingabe.Text;
word1 := EdtErsetzendesWort.Text;
word2 := EdtErsetzenDurch.Text;
stringErgebnis := stringreplace(stringEingabe, word1, word2, [rfReplaceAll, rfIgnoreCase]);
EdtStringErgebnis.Text := stringErgebnis;
end;
In der Zeile 03 bis 05 lege ich die variablen fest mit denen ich in der Prozedure arbeiten möchte. Man kann auch anstelle die Variablen, sofort den Namen des Editfeldes nehmen und die Eigenschaft Text anhängen. Bei späteren Programmen wirst du allerdings die Usereingaben für einen DAU Nutzer absichern. Ein DAU Nutzer ist der dümmste anzunehmende Nutzer. In Zeile 07 bis 09 übergebe ich die Inhalte der Editfeldern den String Variablen. Zeile 10 speichert das Ergebnis als String vor dem ist Zuweisungszeichen. Rechts neben dem Zuweisungszeichen ist die Funktion stringreplace(String,word1,word2, [rfReplaceAll, rfIgnoreCase]);). Die Beschreibung dazu findest du oben. In Zeile 11 wird das Ergebnis dem Edfitfeld für die Ausgabe zugewiesen. Zeile 12 beendet die Funktion.
Bei Lazarus und Free Pascal kann man ein Wort in einem String mit der Funktion pos(wort, String); suchen. Nachfolgend möchte ich dir das mit einem kleinen Programm zeigen.
Die Benutzeroberfläche sieht wie folgt aus siehe Abbildung 1.00. Die Editfelder tragen in meiner Software von oben nach unten die folgenden Namen. Den Namen kannst du über den Objektinspektor ändern. Das Editfeld unter dem Label >String eingeben< trägt den Namen: EdtStringEingabe. Das Editfeld unter dem String >Wortsuche< trägt den Namen: EdtWortSuche. Das Editfeld unter dem Label mit der Caption >String Zeichen< trägt den Namen: EdtStringZeichenZahl.
Der Button trägt den Namen: BtnWortsuche. Das unterste Editfeld trägt den Namen: EdtErgebnis.
Nachfolgend der habe ich für den Button BtnWortsuche ein OnClick() Ereignis eingefügt. Nachfolgend der Quelltext der Prozedure.
Quelltext:
01: procedure TForm1.BtnWortsucheClick(Sender: TObject);
02: var
03: word, myString : string;
04: begin
05: word := EdtWortSuche.Text;
06: myString := EdtStringEingabe.Text;
07: EdtErgebnis.Text := IntToStr(Pos(word, myString));
08: end;
In Zeile 01 siehst du den Kopf der Prozedure. Anhand des Namen sehen wir das die Prozedure im Pascal Quelltext des Form1 steht und den Namen BtnWortsucheClick() trägt. Übergeben wird hier ein Objekt. Was Objekte sind besprechen wir zu einem späteren Zeitpunkt. Da dieser Teil der Prozedure automatisch angelegt wird, sehen wir darüber weg.
In Zeile 02 das var sagt aus das ich erst noch ein paar Variablen deklarieren möchte.
In Zeile 03 lege ich die beiden String Variablen word (englisch) und myString fest.
In Zeile 04 leite ich mit dem Wort begin den Anweisungsteil innerhalb der Prozedure ein.
Zeile 05: hier kopiere ich den Textinhalt vom Editfeld EdtWortSuche in die String Variable word.
Zeile 06 Hier kopiere ich den Textinhalt vom Editfeld EdtStringEingabe in die String Variable myString.
Zeile 07: Hier schreibe ich das Ergebnis Textinhalt der Funktion IntToStr() und Pos(word, myString) in das Editfeld EdtErgebnis. Mit der Funktion Pos() erhalte ich einen Integer Wert diesen wandele ich mit der Funktion IntToStr in einem String um. Für die Zuweisung eines Editfeldes müssen bei Seiten der Zuweisung den gleichen variablen Typ haben. Bei Editfeldern ist das die Variable String.
Als kleine Spielerei habe ich vom letzten Artikel die Zeichenanzahl mit in das Programm hineingebracht. Hier nur noch einmal kurz der Quelltext. Das Ereignis ist ein Change Ereignis des Edtfeldes EdtStringEingabe. Das bedeutet bei der Eingabe des String in dem wir ein Wort suchen möchten ändern sich der Counter bei der Eingabe des Textes.
Quelltext der Prozdeure: EdtStringEingabeChange
procedure TForm1.EdtStringEingabeChange(Sender: TObject);
begin
EdtStringZeichenZahl.Text := IntToStr(length(EdtStringEingabe.Text));
end;
Im Anhang gibt dann noch das kleine Programm zum Download.
Anhang:
Neue Kommentare