Einfügen ohne Inhalt zu löschen....

Shadowdragon · Beiträge: 143 Win 2000 Delphi 6 Pers., Delphi 7

Hallo, ich mache mal einen neuen Thread damit das auch gelesen wird

Folgendes:

Quelltext

1:	memo1.Lines.loadfromfile ('C:\CFClient\cfc_content.txt') ;

Diese Zeile fügt den Inhalt einer Textdatei in eine Memo-Box ein.
Nun habe ich aber schon etwas in dieser Memo-Box stehen, was dadurch gelöscht wird...

Ich will aber den bisherigen Inhalt behalten und den Inhalt der Textdatei hinzufügen.

Also ungefähr so:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

// Bisheriger Inhalt
memo1.lines.add ('laber laber bla bla') ;

//Leere Zeile
memo1.lines.add ('') ;

//Hinzufügen des Inhalts der Textdatei

...ja, was nun? der Add-Befehl funzt hier nicht....

Ich bedanke mich schonmal für jede Rückmeldung!

_________________
Ein Programm gleicht dem Prinzip von Jenga:
Viele Bestandteile, wird nach oben hin immer besser, nach unten hin immer instabiler und wenn man was falsch macht klappt der ganze Mist zusammen.

Ehemaliges Mitglied Erhaltene Danke: 1

Lies die Textdatei von Hand mit Assignfile und readln Zeilen weise ein und füg die Zeilen mit Lines.Add deinem Memo hinzu.

Be´vor du nach Code fragst:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var
  f : TextFile;
  s : String;
begin
  Memo1.Lines.Add('bla');
  Memo1.Lines.Add('blub');
  AssignFile(f, 'c:\boot.ini');
  Reset(f);
  while not eof(f) do
  begin
    readln(f, s);
    Memo1.Lines.Add(s);
  end;
  CloseFile(f);
end;

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Oder du benutzt eine tStringList als Hilfe:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Var 
  SL: tStringList;
Begin
  SL := tStringList.Create;
  SL.LoadFromFile ('C:\CFClient\cfc_content.txt');

  Memo1.Lines.AddStrings (SL);

  SL.Free;
End;

Gruß
TINO

Shadowdragon · Beiträge: 143 Win 2000 Delphi 6 Pers., Delphi 7

Dankeschön

Und nochmal was anderes:

Wie kann ich in einem Showmessage-Befehl einen Zeilenumbruch erlangen und den tex zentrieren?

also:

markieren

Quelltext

1:	showmessage ('Version 1.0 CFC-Newsreader')

Ich möchte jetzt einen Umbruch nach Version 1.0 , sodass CFC-Newsreader in einer neuen Zeile steht.
Und das Ganz dann zentrieren.

Sorry wenn ich zu viele blöde Fragen stelle, aber die Delphi-Hilfe bringt da auch nicht weiter...

_________________
Ein Programm gleicht dem Prinzip von Jenga:
Viele Bestandteile, wird nach oben hin immer besser, nach unten hin immer instabiler und wenn man was falsch macht klappt der ganze Mist zusammen.

smiegel · Verfasst: Mi 05.02.03 14:18

Hallo,

einen Zeileumbruch erreichst Du durch #13#10.

In Deinem Beispiel:

markieren

Quelltext

1:
2:
3:

  ...
  ShowMessage ('Version 1.0'+#13#10+'CFC-Newsreader')
  ...

Wenn Du es dann noch zentriert haben willst, dann musst Du Dir evtl. einen eigenen Hinweisdialog basteln.

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

Shadowdragon · Beiträge: 143 Win 2000 Delphi 6 Pers., Delphi 7

Dankeschön!

Das mit dem Zentrieren fällt weg, brauch ich nich ^____^

Wie heisst es so schön?
"Je unkomplizierter es ist, desto weniger kann kaputt gehen!"

_________________
Ein Programm gleicht dem Prinzip von Jenga:
Viele Bestandteile, wird nach oben hin immer besser, nach unten hin immer instabiler und wenn man was falsch macht klappt der ganze Mist zusammen.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Shadowdragon hat folgendes geschrieben:

Und nochmal was anderes:

Bitte in Zukunft für jede neue Frage ein neues Topic erstellen! Danke!

Gruß
TINO

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme