Also eine komplette function wollte ich dir jetzt nicht schreiben, schließlich sollste das ja selber machen, aber ich denke ich kann dir etwas helfen:
z.B. könntest du, mit dem Befehl Copy einzelne Zeichen oder einen Abschnitt von einem String auslesen. Das sieht dann so aus:
Delphi-Quelltext
1:
| Edit2.Text:=Copy(Edit1.Text,5,3); |
Hierbei wird dem Edit2 von dem Edit1 ab dem 5.Zeichen die nächsten 3 zugeordnet.
Eine Suche nach dem Zeichen (/) könnte dann so aussehen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure TForm1.Button1Click(Sender: TObject);
var
gefunden:Boolean;
I:Integer;
begin
I:=1;
Gefunden:=False;
While (Gefunden=False) and (I<Length(Edit1.Text))do
begin
if Copy(Edit1.Text,I,1) ='/' then Gefunden:=True;
I:=I+1;
end;
if Gefunden=True then
begin
end
else
begin
end;
end; |
Peter Lustig (23:09, 12.05.2004)
