Einzelnen Beitrag anzeigen

Daniel B
(Gast)

n/a Beiträge
 
#15
  Alt 1. Apr 2003, 17:50
Hallo,

spiel doch einfach damit. Es ist halt ziemlich Blöd wenn man nicht weiss was man damit machen soll, daher einfach mal ein Beispiel mit der Message.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  iFor: Integer;
  sEdit: String;
begin
  sEdit := Edit1.Text;
  for iFor := 0 to Length(sEdit) do
  begin
    if sEdit[iFor] = ' then
    begin
      ShowMessage('An der ' + IntToStr(iFor) + ' stelle ist eine Leerstelle!');
    end;
  end;
end;
Grüsse, Daniel
  Mit Zitat antworten Zitat