Like unter Delphi

[Schubi]

Zitat von sakura:

Zitat von marabu:

es gibt kein reguläres Pascal-Sprachmittel für deinen Test

Nur weil Du nicht alle Delphi-Klassen kennst... Maskenvergleiche mit * (nicht %) und ? gibt es in der Unit Masks und der Klasse TMask. Die Anwendung ist selbsterklärend.

Masks wurde eigentlich für Dateinamenvergleiche geschaffen, funktioniert aber auch bei normalen Strings zuverlässig.

......

Delphi-Quellcode:

uses Masks;
[...]
procedure TForm1.Button1Click(Sender: TObject);
var
  Mask : TMask;
begin
  Mask := TMask.Create(Edit1.Text);
  If Mask.Matches(Edit2.Text) Then Button1.Caption := 'True'
  else Button1.Caption := 'False';
  Mask.Destroy;
end;

Danke Miezekatze
Kannte ich auch nicht.
Ist auch etwas Umständlich so fürs Erste, aber man kann das ja verpacken.