Eine Dateierweiterung *.txt entfernen?

[City Light]

Hallo alle zusammen :hi:

Nun in einen Editfeld soll nur der Name vorkommen ,nich Otto.txt sondern nur Otto

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  if Edit1.Text = '' Then
  Edit1.Text := [color=#ff0044]ExtractFileName[/color](OpenDialog1.FileName);
end;

Wer hatt Rat?

Gruß ,Tino

[thomasdrewermann]

Versuchs mal damit:

Code:

procedure TForm5.Button1Click(Sender: TObject);
var i:integer; s:string;
begin
if OpenDialog1.Execute then
  SynEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  if Edit1.Text = '' Then
  Edit1.Text := ExtractFileName(OpenDialog1.FileName);
  for i:=1 to length(edit1.text)-4 do
    s:=s+edit1.text[i];
  edit1.text:=s;
end;

[City Light]

Hey vielen Dank das war ja super schnell :bounce2:

:dancer: :dancer2: :dancer: :dancer:
:spin:

[thomasdrewermann]

Ich hoffe es kürzt den String an der richtigen Stelle :-)

[City Light]

Ja und wie!!! :D

[Luckie]

Ich hätte ChangeFileExt genommen und einen Leerstring genommen. :roll:

[City Light]

Wie jetzt?

[thomasdrewermann]

Dann hat man doch einen Punkt hinten dran. :lol:

[City Light]

AH verstehe

Delphi-Quellcode:

s:= ChangeFileExt(OpenDialog1.FileName,'');

so richtig?

[thomasdrewermann]

Ja,
wenn jetzt kein Punkt hinten dran ist, dann ist diese Lösung natürlich besser.

[City Light]

Kein Punkt mehr :dancer:

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var
 s:String;
begin
if OpenDialog1.Execute then
  SynEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
  if Edit1.Text = '' Then
  s:= ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));
  Edit1.Text:=s;
end;

Danke :hello:

[Daniel B]

Kleiner Tip noch:

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    SynEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
    if Edit1.Text = '' then
    begin
      Edit1.Text := ExtractFileName(ChangeFileExt(OpenDialog1.FileName,''));
    end;
  end;
end;

Grüsse, Daniel :hi:

[edit=Daniel B]Ein end; vergessen.[/edit]

[City Light]

Hehe ich hätte noch ein :mrgreen:

Delphi-Quellcode:

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;

Noch mals danke :-)

Gruß ,Tino :wink: