Mehrere Text-Dateien in ein TMemo?

[axelf98]

hmm.. vielleicht ein end zu viel?

[Christian Seehase]

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.

[mlspider]

Habe schon versucht ein end; wegzunehmen. Klappt nicht.

Hier mal der gesamte Code:

Delphi-Quellcode:

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.

Wo könnte nun Hase begraben liegen?

[Christian Seehase]

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:

slWork.LoadFromFile('c:\Apache\xampp\htdocs\secure\ram\');

Da steht keine Datei die geladen werden soll.
Du musst das für jede Datei einzel aufrufen.

[mlspider]

Sorry, aber könnte ich die Sache mit den Ereignis OnCreate oder OnClick aufrufen, oder wie hast Du das mit dem Header gemeint?

[Christian Seehase]

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.

[mlspider]

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!

[Christian Seehase]

Moin mlspider,

Zitat:

Zitat von Christian Seehase

Du musst das für jede Datei einzel aufrufen.

also wohl am besten in einer Schleife.

Was jetzt an dem Rest nicht mehr funktionieren soll kann ich so allerdings nicht nachvollziehen.

[mlspider]

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;

[Christian Seehase]

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.