![]() |
Re: Mehrere Text-Dateien in ein TMemo?
hmm.. vielleicht ein end zu viel?
|
Re: Mehrere Text-Dateien in ein TMemo?
Moin mlspider,
dann wirst Du wohl irgendwo ein End; vergessen haben, wo lässt sich ohne Source nicht sagen. Der Codeschnipsel von oben braucht nur noch einen Header. |
Re: Mehrere Text-Dateien in ein TMemo?
Habe schon versucht ein end; wegzunehmen. Klappt nicht.
Hier mal der gesamte Code:
Delphi-Quellcode:
Wo könnte nun Hase begraben liegen?
unit Unit2;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Memo1: TMemo; Button1: TButton; Button2: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form2: TForm2; implementation uses IPWechsler; {$R *.dfm} var slWork : TStringList; begin slWork := TStringList.Create; try slWork.LoadFromFile('c:\Apache\xampp\htdocs\secure\ram\'); Form2.Memo1.Lines.AddStrings(slWork); finally FreeAndNil(slWork); end; end; procedure TForm2.Button1Click(Sender: TObject); begin Memo1.lines.loadfromfile('c:\Apache\xampp\htdocs\secure\ram\Charts1.asf') end; function changeIP(oldadr,newIp:String): String; var s: String; i : Integer; begin s := oldadr; delete(s,1,pos('//',s)+1); // HTTP:// wegschneiden, man geh davon aus dass es immer auf "//" endet delete(s,1,pos('/',s)-1); // Die IP wegschnippel ( also bis zum nächsten "/") result := 'http://' + newIp + s; // HTTP davor dann die IP und dann der rest ... end; procedure TForm2.Button2Click(Sender: TObject); var i:integer; begin for i := 0 to Memo1.Lines.Count-1 do Memo1.lines[i] := changeIP(Memo1.Lines[i],Form1.Edit1.text); memo1.Lines.SaveToFile('C:/test.asf'); end; end. |
Re: Mehrere Text-Dateien in ein TMemo?
Moin mlspider,
Du musst das ganze auch in eine Prozedur oder Funktion legen, und nicht einfach nur reinkopieren. Ich sag' doch, dass der Header fehlt. Ausserdem wird auch das hier nicht funktionieren:
Delphi-Quellcode:
Da steht keine Datei die geladen werden soll.
slWork.LoadFromFile('c:\Apache\xampp\htdocs\secure\ram\');
Du musst das für jede Datei einzel aufrufen. |
Re: Mehrere Text-Dateien in ein TMemo?
Sorry, aber könnte ich die Sache mit den Ereignis OnCreate oder OnClick aufrufen, oder wie hast Du das mit dem Header gemeint?
|
Re: Mehrere Text-Dateien in ein TMemo?
Moin mlspider,
richtig. Irgendwo muss es ja drinstehen, sonst kannst Du es nicht aufrufen. Ob das nun eine Methode (Prozedur oder Funktion einer Klasse) oder eine einfache Prozedur oder Funktion ist spielt keine Rolle. |
Re: Mehrere Text-Dateien in ein TMemo?
OK, ich habe jetzt ein Button hinzugefügt und über das OnClick Ereignis Deinen Code eingesetzt. Funktioniert perfekt. Nur leider will der Rest nicht mehr, also der IP-Wechsel funktionieren.
Muß jetzt der vorhandene Code modifiziert werden? PS: Ich hoffe, ich falle Dir nicht all zu sehr auf die Nerven! |
Re: Mehrere Text-Dateien in ein TMemo?
Moin mlspider,
Zitat:
Was jetzt an dem Rest nicht mehr funktionieren soll kann ich so allerdings nicht nachvollziehen. |
Re: Mehrere Text-Dateien in ein TMemo?
Jetzt wird alles korrekt ausgeführt, allerdings wird jetzt in jeder in dem Memo geöffneten Datien alle Zeilen geschrieben:
"http://11111111111111/secure/mp3/Titel1.wma" "http://11111111111111/secure/MP3/Titel2.wma" "http://11111111111111/secure/MP3/Titel3.wma" "http://11111111111111/secure/MP3/Titel4.wma" realisiert wurde das so:
Delphi-Quellcode:
procedure TForm2.Button2Click(Sender: TObject);
var i:integer; begin for i := 0 to Memo1.Lines.Count-1 do Memo1.lines[i] := changeIP(Memo1.Lines[i],Edit1.text); memo1.Lines.SaveToFile('C:/test1.asf'); Memo1.lines[i] := changeIP(Memo1.Lines[i],Edit1.text); memo1.Lines.SaveToFile('C:/test2.asf'); Memo1.lines[i] := changeIP(Memo1.Lines[i],Edit1.text); memo1.Lines.SaveToFile('C:/test3.asf'); Memo1.lines[i] := changeIP(Memo1.Lines[i],Edit1.text); memo1.Lines.SaveToFile('C:/test4.asf'); end; |
Re: Mehrere Text-Dateien in ein TMemo?
Moin mlspider,
ich schlage vor, dass Du noch einmal darüber nachdenkst, wie das Programm ablaufen muss, also wann muss was passieren. Das müsste sich meiner Ansicht nach aus dem "Was will ich haben" ./. "Was bekomme ich" ergeben. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz