-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
Jo ;)
Nein war net bös gemeint, ich stand etwas auf der Leitung, weil ich succ und peod erstmal nachschauen musste...
Hm, inner Delphihilfe finde ich pos komischerweise net... Ich habs online gefunden , und die Lösung lag bei succ und prod und darauf wär ich so net gekommen ;)
Vielen Dank nochmal
-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
Hm, das funktioniert.
Jetzt kommt aber die Glanz und Gloria Frage, weil damit dasse das einfach reinpostet verstehe ichs noch nicht ganz :
Du hast jetzt das was ich vorhatte rückwarts gemacht...
Dafür die forto down Schleife.
Falls der Begriff nicht gefunden wurde, wurde die Zeile gelöscht. Soweit habe ich das gecheckt...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
Schon besser ;)
Jetzt gibt er mir nur noch den gesamten String aus in dem die Zeichnen enthalten sind...
Aber ich will ja eig nur den Teilstring zwischen den zwei Zeichen, deswegen hab ichs ja mit Copy versucht, nur das hat irgendwie net so geklappt wie ichs wollte....
-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
ItemTypeListe := CreateTypLists(OpenDialog.Filename, #91 , #93 );
ListBox1.Items.Assign(ItemTypeListe)
Trotz der Richtigstellung mit dem Iteral Fehler funktioniert es immer noch nicht...
Frage : Wenn in der ersten Zeile keines der Zeichen gefunden werdne kann, dann gibt er aber trotzdem für die Zeilen in denen er das Anfangs und Endzeichen findet, den richtigen String aus,...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
function TForm1.CreateTypLists(fn: TFileName; anf : char; ende : char) : TStrings;
var
i, ianf, iende : integer;
s : string;
begin
Result := TStringList.Create;
with Result do
begin
LoadFromFile(fn);
for i := 0 to Pred(Count) do
-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
Marabu, kleinen Fehler haste gemacht, das ist jetzt ne Funktion! Aber trotzdem vielen Dank für eure Mühen, da stand ich echt auffm Schlauch....
Dankeschön an alle!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
Itemnamen.Items.Assign(ItemListe);
In dieser Spalte
EDIT : Ich habe bei der von marabu geposteten Funktion vor das sOut.Clear ein sOut.Create hinzugefügt damit die Liste auch kreeiert wird...
procedure ExtractNames(sIn, sOut: TStrings);
var
i: Integer;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
Ich glaube der Fehler liegt woanders, da ich auch kein Delphi 5 verwende.
Es kommt immer noch zu einem Exception Fehler, wenn ich auf Datei öffnen klicke. Anschliessend klicke ich die Datei an, es ist eine Textdatei in C:\ mit den 3 Beispielzeilen im ersten Post.
Dann kommt es zu einer EAccessViolation ... Auf Fortsetzen klicken kommt die nächste, anschliessend kommt, konnte Datei nicht...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
Tschuldigung, Textdatei ist das Resultat von der Funktion CreateStrings die oben beschrieben ist.
function CreateStrings(fn: TFileName; nvSep: Char): TStrings;
begin
Result := TStringList.Create;
with Result do
begin
NameValueSeparator := nvSep;
LoadFromFile(fn);
-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
procedure TForm1.Oeffnen1Click(Sender: TObject);
begin
OpenDialog.Options := ;
if OpenDialog.Execute
then try
Textdatei := CreateStrings((OpenDialog.FileName),'|');
ExtractNames(Textdatei,ItemListe);
Itemnamen.Items.Assign(ItemListe);
except
Application.MessageBox ('Datei konnte nicht geladen werden!',
-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
Hm, hatte bisjetzt mit Stringlisten nicht viel zu tuen, muss mich insofern da erstmal reindenken...
Wenn ich das aber richtig verstehe, Marabu, machst du folgendes : nvSep ist das Trennzeichen, in meinem Fall | - du kreeierst dann eine Stringliste, mit NameValueSeperator extrahierst du dann den Zeilenanfang bis | und in der zweiten Prozedur werden die dann in der Stringliste sout gespeichert...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by DragonsTear,
30. Jul 2006
**Kopf kratz** Hoffe dass ist jetzt einigermassen verständlich :
Hab hier eine Datei, bei dieser möchte ich zunächst einmal den Anfang jeder Zeile auslesen. Die Anzahl der Zeilen habe ich in der Variable count gespeichert. Jetzt ist nur das Problem : Der Anfang jeder Zeile ist unterschiedlich, aber jedes Wort endet mit dem Zeichen |, also das Endzeichen für jedes Wort, zum Beispiel :
...