Wort aus Textdatei laden

[BullsEye]

Zitat von DeddyH:

Entferne doch mit StringReplace die Anführungszeichen einfach.

Deddy mein Held

Mit StringReplace geht das.

Delphi-Quellcode:

  // Name
  name := frmEditor.mConfig.Lines[235];
  Delete(name,1,Pos(#32,name));
  name := StringReplace(name, '"', '' , []);
  name := trim(name);
  Delete(name,Pos(#32,name),Length(name));
  name := StringReplace(name, '"', '' , []);
  frmEditor.edtName.text := name;

Allerdings ist der Lösungsvorschlag von scrat1979 kürzer und funktioniert ebenfals.

Aber kann man das ganze nun noch weiter kürzen? Sonst müsste ich allein den Code:

Delphi-Quellcode:

  // Vorwärts
  vor := frmEditor.mConfig.Lines[30];
  Delete(vor,1,Pos(#32,vor)+1);
  vor := trim(vor);
  Delete(vor,Pos(#32,vor)-1,Length(vor));
  frmEditor.edtVor.text := vor;

an die 30x haben, wegen der ganzen Variablen etc die ich laden möchte.