200+ Texte in ein memo laden

[Spectre]

danke bummi.
es passiert aber leider immer noch nichts :S

[DeddyH]

Dann stepp doch einfach mal durch (Haltepunkt setzen und mit F7/F8 weiterschalten).

[Spectre]

ist nicht wirklich ergiebig...wobei das problem sicherlich zwischen meinen ohren sitzt und ich zuwenig von delphi-interna verstehe ;)
ich finde diesen lösungsansatz für mich sehr praktisch, liegt der fehler im code der prozedur selbst vlt? :F

[DeddyH]

Du findest es praktischer, wenn wir Deine Fehler suchen, oder wie ist das zu verstehen?

[Davidlocke13]

200 txt dateien mach doch eine Datenbnak Datei die du dran hängst an dein Programm :wink:

[Spectre]

Zitat:

Zitat von DeddyH (Beitrag 1205270)

Du findest es praktischer, wenn wir Deine Fehler suchen, oder wie ist das zu verstehen?

Hättest du bei Seite 1 des Topics angefangen Deddy wäre es offensichtlich das Furtbichler der vater diesen codes ist und er diese variante vorgeschlagen hat. :wink:
ich versuche nur sie zum laufen zu kriegen, irgendwo ist der wurm drin :F

[DeddyH]

Genau, und deshalb schaut man im Debugger nach, was da schief läuft.

[edit]http://www.delphipraxis.net/41047-tu...ortgeschr.html[/edit]

[Spectre]

jo danke für den link. hab bis jetzt rumprobiert, hat lange genug gedauert..
habs jetzt mit einer .res file gelöst in die ich die textfiles einspeise und mit

Code:

procedure TForm1.Button2Click(Sender: TObject);
var
  rs: TResourceStream;
  begin
  rs := TResourceStream.Create(hinstance, 'ELFENBEINKUESTE', RT_RCDATA);
  try
  smemo1.Lines.LoadFromStream(rs);
  finally
    rs.Free;
  end;
end;

drauf zugreife. Das war ein Akt :?
Aber der lerneffekt war gut :stupid: