Also hier ein Beispiel 1 für das Feld 'Meldung'!
Feuerwehr Einsatz * Testhausen * Testdorfstrasse 15 **12346789
Beispiel 2 für das Feld 'Meldung' !
Feuerwehr Einsatz * Testhausen * Testdorfstrasse 15 * bei Meier *12346789
Ich möchte einfach nur die Einsatznummer 123456789 übernehmen!
Delphi-Quellcode:
procedure TForm1.AdvGlowButton6Click(Sender: TObject);
var
s, d: String;
begin
MyTable2.Edit;
s := MyTable2.FieldByName('Meldung').Text;
d := '**';
Delete(s, 1, Pos(d, s) - 1 + Length(d));
while Pos(#10, s) > 0 do Delete(s, Pos(#10, s), 1);
while Pos(#13, s) > 0 do Delete(s, Pos(#13, s), 1);
s := Trim(s);
MyTable2.FieldByName('E.-Nr:').Text := Copy(MyTable2.FieldByName('Meldung').Text, Length (MyTable2.FieldByName('Meldung').Text+(s))-9, 10)+(s);
MyTable2.Post;
DBedit1.ReadOnly:=false;
So geht es mit '**' aber es soll auch bei einem '*' gehen!
Also eine if Anweisung oder?