Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi
    Delphi
    by City Light, 14. Nov 2002
  Hehe ich hätte noch ein :mrgreen:
  
  procedure TForm5.Button1Click(Sender: TObject);
  begin
  if OpenDialog1.Execute then
  SynEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  if Edit1.Text = '' then
  Edit1.Text := ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));
  end;
• Forum: Sonstige Fragen zu Delphi
    Delphi
    by City Light, 14. Nov 2002
  Kein Punkt mehr :dancer:
  
  
  
  procedure TForm5.Button1Click(Sender: TObject);
  var
  s:String;
  begin
  if OpenDialog1.Execute then
  SynEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
• Forum: Sonstige Fragen zu Delphi
    Delphi
    by City Light, 14. Nov 2002
  AH verstehe
  
  s:= ChangeFileExt(OpenDialog1.FileName,'');
  
  so richtig?
• Forum: Sonstige Fragen zu Delphi
    Delphi
    by City Light, 14. Nov 2002
  Wie jetzt?
• Forum: Sonstige Fragen zu Delphi
    Delphi
    by City Light, 14. Nov 2002
  Ja und wie!!! :D
• Forum: Sonstige Fragen zu Delphi
    Delphi
    by City Light, 14. Nov 2002
  Hey vielen Dank das war ja super schnell :bounce2:
  
  :dancer: :dancer2: :dancer: :dancer:
  :spin:
• Forum: Sonstige Fragen zu Delphi

  Eine Dateierweiterung *.txt entfernen?

    Delphi
    by City Light, 14. Nov 2002
  Hallo alle zusammen :hi:
  
  Nun in einen Editfeld soll nur der Name vorkommen ,nich Otto.txt sondern nur Otto
  
  procedure TForm5.Button1Click(Sender: TObject);
  begin
  if OpenDialog1.Execute then
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  if Edit1.Text = '' Then
  Edit1.Text := ExtractFileName(OpenDialog1.FileName);